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Abstract 


The  software  and  hardware  to  obtain  contrast  sensitivity  functions  in  a  sbgle  session  with  monkeys 
are  described.  The  data  obtained  from  this  program  was  used  to  examine  the  effect  of  microwave  radiation 
on  behavior  in  animals.  The  objective  of  collecting  this  data  was  to  determine  the  safe  operating  conditions 
and  levels  of  exposure  for  Navy  personnel  working  with  directed  energy  systems.  The  versatility  of  the 
software  allows  the  program  to  be  used  in  a  variety  of  sensory  systems  with  only  minor  programming 
modifications.  It  will  permit  absolute  or  difference  threshold  measurements  with  any  one  of  three  methods 
o.f  threshold  testing:  (1)  method  of  tracking,  (2)  method  of  limits,  and  (3)  method  of  constant  stimuli. 
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Introduction 


Contrast  sensitivity  functions  (CSFs)  are  a  fundamental  description  of  spatial  vision  performance 
(Campbell  and  Green,  1965).  During  the  past  decade,  spatial  CSFs  have  become  a  widely  used  means  to 
assess  spatial  visual  performance  in  both  humans  and  animals.  Basically,  it  is  the  capability  to  perceive  a 
target  from  its  surroundings  under  dissimilar  luminance  conditions.  Traditionally,  sine  wave  gratings 
presented  at  different  contrasts  have  been  used  to  determine  CSFs.  Contrast,  as  pertaining  to  contrast 
sensitivity,  can  be  defined  as  the  difference  in  luminance  of  the  background  and  the  target.  Spatial  frequency 
(cycles/degree)  is  determined  by  the  size  of  the  target  with  small  gratings  representing  a  high  spatial 
frequency  and  large  gratings  a  low  spatial  frequency.  By  conducting  tests  at  several  spatial  frequencies,  a 
CSFs  can  be  constructed  to  reflect  the  ability  of  the  visual  system  to  detect  targets  of  different  sizes  and 
contrasts.  While  several  studies  have  measured  CSFs  very  effectively  in  rhesus  monkeys  (c.  g.,  Boltz, 
Harwerth,  &  Smith,  1979;  De  Valois  &  Morgan,  1974;  Jacobs,  1977;  Williams,  Boothe,  Kiorpes,  &  Teller, 
1981),  the  program  and  hardware  described  in  this  report  were  more  productive  for  our  requirement  to 
evaluate  visual  function  in  rhesus  monkeys  {Macaco  mulatto)  during  1.5  h  test  sessions. 

Several  researchers  (Blough  1958,  1966;  Gourevitch,  1970;  Rosenberger,  1970;  Stebbins  1970)  have 
established  behavioral  procedures  to  determine  sensory  thresholds  in  animals.  Threshold  determination 
procedures  include  1)  the  method  of  tracking,  2)  the  method  of  limits,  and  3)  the  method  of  constant  stimuli. 
These  procedures  provided  a  basis  for  the  development  of  our  training  procedure  (DeVietti,  D’Andrea, 
Hatcher,  Reddbc,  submitted  1992),  and  for  the  software  and  hardware  necessary  to  support  the  training 
procedure.  In  combination,  these  methods  can  be  used  to  determine  contrast  sensitivity  functions  or  other 
sensory  thresholds  using  any  one  of  the  traditional  threshold  testing  methods. 

The  following  is  an  overview  of  the  hardware  and  computer  prograrr.  developed  to  generate  contrast 
displays  on  a  very  high  resolution  XYZ-axis  display  device  (Tektronix  6063).  The  display  consists  of  vertical 
sinusoidal  gratings  that  can  be  computer  controlled  by  the  experimenter  for  varying  degrees  of  contrast  and 
spatial  frequency.  This  program  was  developed  to  provide  such  visual  stimuli  to  determine  CSFs,  record  and 
store  data,  and  identif)'  threshold  contrast  sensitivity  levels. 

Hardware  and  Software  Requirements 

Certain  hardware  components  are  required  for  the  program  to  function  and  evaluate  contrast 
sensitivities.  Figure  1  shows  a  block  diagram  of  the  complete  setup  required  for  proper  operation.  An  IBM- 
compatible  computer  is  used  to  run  the  program.  A  faster  model,  such  as  a  80486  25-MHz,  will  ensure 
accurate  response-time  measurements.  Slower  computers,  for  example  the  80286,  will  suffice  if  accuracy  of 
two  or  three  hundredths  of  a  second  are  not  needed.  A  Tektronix  XYZ  monitor,  model  606B,  or  compatible 
is  used  to  display  the  gratings.  To  produce  the  gratings,  a  rectangle-pulse  generator  and  a  ramp-wave 
generator  are  used  to  produce  inputs  to  the  X  and  Y  inputs  of  the  XYZ  monitor,  respectively.  A  Metrybyte 
function  generator  model  PCIP-SST  is  connected  to  the  Z  input  to  control  the  frequency  and  amplitude  of 
the  grating.  In  addition,  a  potentiometer  is  pla'-pd  in  series  with  the  Z  input  of  the  monitor  and  the  PCIP- 
SST  to  permit  a  wider  range  of  amplitudes  above  and  below  the  threshold  level  by  effectively  raising  the  zero 
voltage  level  to  a  positive  voltage.  To  accurately  measure  the  reaction  time  of  responses,  a  Metrybyte  CTM- 
5  timer  is  used.  The  timer  card  measures  the  amount  of  time  it  takes  for  the  subject  to  make  a  left-lever 
response  once  the  contrast  has  been  displayed. 

Program  Operation 

The  program,  TLC.EXE  (appendbc),  was  written  and  compiled  using  the  Microsoft  BASIC 
Professional  Development  System  7.1  (Microsoft  Corp.,  1987)  and  requires  an  IBM  PC-compatible  computer. 
A  rainiinum  disk  space  of  150K  bytes  is  needed,  and  the  program  should  be  operated  from  a  fixed  disk.  The 
program  is  "operator-input  controlled"  allowing  the  user  to  configure  each  experiment  individually  to  the 
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method  of  testing,  length  of  test,  duration  of  contrast  presented,  timeout  period  (TO),  spatial  frequency, 
contrast  value,  variable  interval  (VI)  and,  if  needed,  catch  trials.  Certain  variables,  including  VI,  contrast 
intensity,  timeout  period,  and  spatial  frequency,  can  be  modified  during  the  experiment  by  pressing  the 
corresponding  function  key. 

The  program  is  divided  into  four  stages.  Stages  1,  2,  and  3  are  training  stages.  Stage  4  determines 
the  contrast  sensitivity  threshold.  A  startup  menu  allows  the  experimenter  to  choose  one  of  the  stages  (see 
Figure  2).  The  training  stages  are  primarily  designed  to  systematically  teach  the  subject  how  to  perform  the 
desired  task.  The  function  of  stage  1  is  to  familiarize  the  subject  with  the  gratings  and  environmental 
surroundings.  Durmg  this  training,  a  contrast  is  always  visible  and  reinforcements  are  supplied  at  variable 
intervals  (VI)  determined  by  the  experimenter.  The  contrast  can  be  displayed  at  fixed  spatial  frequencies 
and  amplitudes,  randomly  selected  spatial  frequencies  and  amplitudes,  or  any  combination  of  both. 


10-30-1992 


06:12:57 


Contrast  Sensitivity  Procedures 


1  . Stage  1  Training 

2  . Stage  2  Training 

3  . Stage  3  Training 

4  . Stage  4  Procedures 


Make  Seleotlon:  ? 


Figure  2,  Program  menu  for  choice  of  training  or  CSF  testing. 


Stage  2  btroduces  the  subject  to  discrimbation  testbg  and  is  divided  bto  two  phases  (Fig.3).  Phase 
1  of  stage  2  requires  the  subject  to  make  a  left-lever  response  to  obtab  rebforcement.  As  b  stage  1,  spatial 
frequencies  and  amplitudes  can  be  selected  at  random  or  remab  at  fixed  values.  Once  the  subject  has 
mastered  the  reinforcement  process,  the  stimulus  is  placed  on  a  VI  schedule  (Phase  2).  A  left-lever  response 
during  a  contrast  produces  a  rebforcement,  termbates  the  contrast,  and  selects  the  next  VI.  When  the 
experimenter  has  determined  that  the  subject  is  responding  to  the  contrast,  a  second  response  control  (right 
lever)  is  added.  During  this  traimng  process  (Stage  3),  a  contrast  is  presented  when  the  subject  makes  a 
right-lever  response.  Again,  as  in  phase  2,  a  left-lever  response  delivers  a  rebforcement,  removes  the 
contrast,  and  determines  the  next  Vi.  After  the  subject  learns  the  process  of  pullbg  the  right  lever  to 
present  a  contrast  followed  by  a  left-lever  response  for  rebforcement,  the  gratings  are  placed  on  a  VI 
schedule. 
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stage  2  -  Training  Procedure 


Enter  file  name . :  test.fi < 

Do  you  want  random  frequencies  <Y/N):  y 
Do  you  want  random  intensities  (Y/N):  y 

Session  length  in  minutes . :  60 

Sleep  Time  in  seconds . :  4 

Time-out  in  seconds . :  10 

Duration  of  Contrast . :  4 

Do  you  want  catch  trials  (Y/N) . :  n 

You  selected  random  frequencies  and  intensities 

Frequency  change  rate  in  minutes.'...:  .5 
Intensity  change  rate  in  minutes....:  .3 


Information  Correct?  (Y/N) 


Figure  3.  Program  menu  for  Stage  2  of  training. 

Stage  4  is  the  actual  contrast  sensitivity  testing  procedure  (see  Fig.  4).  Frrm  this  stage,  the 
experimenter  can  determine  the  contrast  sensitivities  of  the  desired  spatial  frequencies  by  any  of  the  three 
methods  mentioned  above.  If  the  tracking  method  is  selected,  the  program  will  automatically  adjust  the 
contrast  values  determined  by  a  previously  presented  contrast.  If  the  subject  responds  correctly  to  a 
presentation,  the  subsequent  contrast  will  decrease  by  one  step  (0.06  log). 


stage  3  *  Contrast  Sensitivity  Procedure 


Enter  file  name . :  test.fil 

(T)raclcing,  (L)imits,  (Oonstant....:  t 

Do  you  want  random  intensities  (Y/N):  N/A 

Session  length  in  minutes . ...:  60 

Sleep  Time  in  seconds . .....;  5 

Time-out  in  seconds . .  30 

Durst’on  of  Contrast . .  4 

Do  you  want  catch  trials  (Y/N) . ;  y 

You  selected  the  Tracking  Mode 

Enter  valid  frequency . :  123D 

Enter  valid  Intensity . .....;  2,505 


Information  Correct?  (Y/N) 


Figure  4.  Program  menu  for  contrast  sensitivity  testing. 

When  the  subject  fails  to  respond,  the  next  contrast  will  increase  by  one  step.  This  continues  until 
the  experimenter  can  determme  a  threshold  based  on  whether  the  subject  responds  or  does  not  respond  to  a 
contrast.  Figure  5  is  a  flow  chart  for  the  tracking  method  used  in  the  Tl.C.EXE  program.  Operating  the 
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program  in  the  limits  mode  allows  the  user  to  manually  increase  or  decrease  the  contrast.  Threshold  levels 
are  determined  by  recording  the  values  to  which  the  subject  did  and  did  not  respond. 

The  last  method,  constant  stimuU,  allows  the  experimenter  to  dictate  the  amplitude  values  and  the 
total  number  of  times  each  contrast  will  be  displayed.  These  values  are  selected  at  random  until  each 
contrast  value  has  been  displayed  or  the  user  terminates  the  test. 

The  duration  of  a  manually  presented  contrast  is  indefmite  and  can  be  turned  off  by  the  subject 
making  a  left-lever  response  or  by  the  experimenter  pressing  the  space  bar  on  the  computer  keyboard.  In 
both  cases,  a  reinforcement  is  delivered,  the  contrast  is  removed,  and  a  new  VI  is  started.  The  sleep  time 
allows  the  subject  to  continue  activating  the  left  lever  and  not  be  penalized  with  a  timeout.  During  the  sleep 
time,  the  next  interval  is  selected,  and  the  program  continues  normally. 

In  all  four  stages,  menu  selections,  as  shown  above,  allow  the  user  to  input  the  file  name,  t^pe  of 
experiment  (tracking,  limits,  constant  stimuli),  length  of  session,  VI,  timeout  period,  duration  of  stimulus, 
sleep  time,  catch  trials,  spatial  frequency,  and  contrast  amplitude.  The  VI  is  the  average  of  all  the  variable 
intervals  preserved.  Entering  a  VI  of  20  would  mean  that  the  experimenter  wants  a  contrast  to  be  presented 
on  an  average  of  every  20  s.  The  intervals  for  each  VI  were  selected  using  the  formula  developed  by 
Fleshier  and  Hoffman  (19<2).  The  length  of  a  timeout  is  entered  in  seconds.  Each  time  the  subject  makes 
an  incorrect  response  (left-lever  response  when  a  contrast  is  not  bemg  presented),  the  program  automatically 
sends  a  1-Hz,  0-volt  signal  to  the  monitor  causing  the  display  to  flash  on  and  oft.  This  timeout  (TO)  period 
is  used  to  reduce  the  amount  of  "guessing"  by  the  subject  that  may  occur  at  or  near  threshold  levels.  The 
duration  of  the  stimulus  is  the  length  of  time  the  contrast  is  displayed  on  the  monitor.  While  the  program  is 
runnmg,  the  experimenter  can  manually  present  a  stimulus  or  deliver  an  immediate  reinforcement  to  the 
subject. 


To  conclude  that  artifacts  are  not  affectmg  subject  responses,  catch  trials  (.01  Vdc)  may  be  entered 
into  the  random-interval  seiectiou  process.  These  catch  trials  are  presented  exactly  as  a  regular  test  grating 
and  can  help  determine  if  any  outside  interference,  such  as  noise,  microwaves,  or  flicker  are  causing  the 
subject  to  respond  to  the  grating. 

Spatial  frequencies  are  determmed  by  the  distance  of  the  eye  to  the  target,  size  of  the  target,  and  the 
number  of  gratings  displayed  on  the  monitor.  The  number  entered  for  a  specific  spatial  frequency  is  the 
actual  frequency  of  the  PCIP-SST  frequency  generator  the  monitor  requires  to  display  a  given  spatial 
frequency.  Tills  will  vary  depending  on  the  type  of  equipment  being  used  and  desired  spatial  frequencies. 
Data  lines  in  the  BASIC  programming  source  code  contain  the  frequency  values  required  to  display  spatial 
frequencies  of  1.5,  3.0,  6.0,  12.0,  and  18.0  cycles/deg  of  visual  angle  with  a  target  diameter  of  3-cm  and  a 
distance  from  the  subject  of  100  cm  using  the  hardware  desaibed  previously. 

To  select  the  starting  amplitude  when  using  the  tracking  method,  the  experimenter  enters  a  value 
that  has  been  determined  to  be  above  the  threshold  level  of  the  subject.  Once  a  response  is  made  to  the 
grating,  the  next  lower  value  is  selected.  The  program  uses  contrast  values  between  0.2542  and  0.0035  m  0.06 
log  steps,  which  extend  well  above  and  below  the  normal  threshold  levels  in  both  human  (Vistech,  1988)  and 
macaque  (e.g.,  De  Valois  &  Morgan,  1974). 

Experimental  Feedback:  Screen,  Printer,  and  Tones 

The  feedback  the  experimenter  receives  from  the  computer  screen  is  shown  m  Figure  6  and  is  useful 
in  determining  certain  statistics  concerning  the  subject  durmg  the  testing  procedure.  The  PCIP-SST  function 
generator  is  programmed  to  show  the  current  output  values  being  sent  to  the  Tektronbe  606B  monitor,  and  is 
shown  in  the  top  portion  of  Figure  6.  Frequency,  amplitude,  type  of  signal,  and  the  dc  offset  value  are 
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displayed  and  can  be  changed  manually  at  any  time  during  the  experiment.  The  program  updates  every  trial 
and  displays  the  results  on  the  computer  screen.  These  data  include  the  start  time  of  the  test  sessi^.n, 
current  session  time,  current  VI  value  and  the  remaining  time  until  the  VI  expires,  length  of  TOs,  number 
of  TOs,  right-lever  pulls  with  and  without  a  contrast,  and  the  total  number  of  reinforcements  received.  In 
addition,  the  method  of  testing,  spatial  frequency,  amplitude,  and  the  average  of  all  the  Vi’s  selected  are 
displayed. 


Start  Session  Time....:  09:39:00 
Current  Session  Time..:  09:52:02 
Session  Length . :  60 

NEXT  CONTRAST  IN  37  SECONDS 

VI  start  number...:  35522  Target  number:  35559 

Lever  was  pulled  during  5  second  hold  time . :  YES 

New  VI  due  to  error . : 

Reaction  Time . :  1.734 


VI  =  23 

EREQUENCY  =  1000  Hz 
AMPLITJDE  =  0.0  V 
MOPc'  »  TRACK 


Timeouts...:  5  Current  TO:  30 

Right  lever  ON. ... :  21 

Right  lever  OFF. .. :  233 


Session  VI . :  78.1 

Current  VI . ;  78.1 

Pellets  Received. . :  10 


1VI<-  2VI->  3T{K-  4T0->  5FREQ<"  6FREQ->  7AHP<-  8AHP->  9FEED  lOEXIT 


Figure  6.  Illustration  of  on-line  program  feedback  to  the  experimenter. 


Output  to  a  prmter  is  updated  following  each  trial  showing  the  experimental  method,  reaction  time, 
contrast  value,  spatial  frequency,  and  a  graph  illustrating  the  progress  from  trial  to  trial.  At  the  end  of 
theexperiment,  the  program  compiles  the  data,  performs  all  necessary  calculations,  and  prints  the  results. 
When  using  the  tracking  method,  the  total  number  of  trials  and  the  number  of  trials  that  were  responded  to 
correctly  at  each  contrast  are  prmted  (Fig.  7).  A  percentage  of  correct  to  incorrect  responses  is  also 
indicated.  All  data  are  recorded  to  an  ASCII  file  for  further  evaluation  and  future  reference. 

Audible  tones  are  produced  at  the  computer  to  indicate  certain  events  such  as  right  and  left  lever 
pulls,  TOs,  catch  trials,  and  the  expiration  of  a  VI.  By  discerning  the  meaning  of  each  tone,  the 
experimenter  can  readily  acknowledge  the  current  status  of  the  test.  Not  only  does  this  feedback  return  the 
activity  of  the  subject,  it  also  provides  the  user  with  some  assurance  that  the  program  is  functioning  properly. 

Software  requirements  include  the  TLC.EXE  program  and  the  drivers  needed  to  operate  the  PCIP- 
SST  function  generator.  These  PCIP-SST  drivers  come  with  the  function  generator  and  are  loaded  manually 
or  automatically  in  the  CONFIG.SYS  file  during  the  boot-up  procedure  of  the  computer.  This  software  also 
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If  changes  are  made  to  the  source  code,  the  program  must  be  recompiled.  A  library, 
CTM5COM.LIB,  containing  the  commands  for  the  CTM-5  timer  is  supplied  with  the  program.  This  library 
must  be  loaded  from  the  command  line  (QBX  /L  CTM5COM,LIB)  before  the  TLC.EXE  file  can  be 
created. 


SUMMARY 

We  developed  a  computer  program  (TLC.EXE)  and  training  procedure^  to  determine  contrast 
sensitivity  functions  in  the  monkey  within  a  smgle  session.  The  program  controls  all  events  and  allows 
threshold  testing  by  any  one  of  three  procedures  (the  method  of  constant  stimuli,  the  method  of  limits,  and 
the  method  of  tracking).  The  program  also  provides  bath  detailed  on-line  event-by-event  monitoring  and 
session  summary  results,  and  allows  within-session  changes  in  the  procedure.  Although  the  program  was 
written  initially  to  perform  tests  for  contrast  sensitivity,  it  can  be  used  readily  with  minor  modification  to 
determine  other  sensory  thresholds.  It  has  been  reconstructed  in  our  labor^  ory  to  conduct  hearing  threshold 
experiments  (AUDIO.EXE)  in  macaques.  The  output  of  the  PCIP-SST  function  generator  is  used  to  change 
the  frequency  and  amplitude  of  a  signal  connected  to  a  speaker.  Responses  are  made  to  a  tone  instead  of  a 
grating.  Tracking  is  accomplished  by  deaeasing  or  increasing  the  decibel  level  as  the  subject  correctly  or 
incorrectly  responds  to  the  tone.  Because  of  the  versatility  of  the  TLC.EXE  program,  other  sensory 
threshold  experiments  that  utilize  a  sine,  square,  or  triangle  waveform  from  the  function  generator  to  present 
a  stimulus  to  the  subject  can  be  readily  accomplished. 


^  To  receive  a  free  copy  of  the  software,  send  a  self-addressed,  stamped  container  with  either  a  3.5-in.  or 
5.25-in.  formatted  disk  to  the  author. 
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T 
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Figure  7.  Real-time  computer  printout  of  an  actual  experimental  test. 
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Am  -  AvUtude  (Volts)  RT  -  Reaction  TiM  (sec) 
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TO  ■  TiMout  HC  ■  Hissed  Contrast  HVl  >  Kissed  sclteduled  VI 
C  s  Catch  Trial  (No  resoonse)  CR  «  Catch  Trial  (Resoonse) 
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T  »  Tracking  L  *  Lieits  C  *  Contrast  ♦  =  Olhe.- 


Figure  7.  (Continued) 
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Other  Related  NAMRL  Publicatio:; 


None  are  applicable. 
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APPENDIX 


BASIC  Source  Code  for  TLC.EXE 


’  TLC.BAS 


’  Source  Code  Written  By:  Donald  J.  Hatcher 

’  Naval  Aerospace  Medical  Research  Laboratory 

’  Pensacola,  Florida 

’  Last  Update:  02/04/92 

’  This  program  uses  the  PCIP-SST  Function  Generator,  CTM-TIMER,  and  Acquisition  Board 

DECLARE  SUB  iiiitCTMS  (BSA%) 

DECLARE  SUB  zeroCTMSl  (BSA%) 

DECLARE  SUB  readCTMSl  (ct!(),  BSA%) 

DECLARE  SUB  loadvi  () 

COMMON  files,  fa$,  fb$,  fdS,  ovlS,  ov2$,  ov3$ 

CLS 

CLEAR  ,  ,  10000 

OPEN  "SSST"  FOR  OUTPUT  AS  #1  ’  Open  Function  Generator  PCIP-SST 

CLS 

DIM  SHARED  VI(0  TO  144,  1  TO  30)  AS  INTEGER 

DIM  ct(lO),  freq$(60),  Amp$(3,  80),  VIS(16) 

DIM  Tamp$(1000),  Tamp(lOOO),  TampC(lOOO),  rt(lOOO) 

DIM  Lamp$(1000),  Lamp(lOOO),  LampC(lOOO) 

DIM  count(lOOO) 

DIM  Voltage(32) 

DIM  Sensitivity(32) 

RANDOMIZE  TIMER 

menu$  =  "Contrast  Sensitivity  Procedures" 
make$  =  "Make  Selection:  ?" 
center  =  40  -  (LEN(menu$)  /  2) 
make  =  40  -  (LEN(make$)  /  2) 
a$  =  "" 

averagepellets  =■  0 


OUT  779,  136 
OUT  777,  0 
BSA%  =  &H310 
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CALL  initCTM5(BSA%) 

CALL  zeroCTM51(BSA%) 

CALL  readCTM51(ctO,  BSA%) 

KEY  L  "VI<-" 

KEY  2,  "VI- >" 

KEY  3,  ’'TO<-" 

KEY  4,  "TO->" 

KEY  5,  "FREQ<-" 

KEY  6,  "FREO->" 

KEY  7,  "AMP<-" 

KEY  8;  "AMP->" 

KEY  9,  "FEED" 

KEY  10,  "EXIT" 

ON  KEY(l)  GOSUB  Decrease VI 
ON  KEY(2)  GOSUB  Increase VI 
ON  KEY(3)  GOSUB  DecreaseTimeOut 
ON  KEY(4)  GOSUB  IncreaseTimeOut 
ON  KEY(5)  GOSUB  DecreaseFrcquency 
ON  KEY(6)  GOSUB  IncreaseFrequency 
ON  KEY(7)  GOSUB  DecreaseAmplitude 
ON  KEY(8)  GOSUB  IncreaseAmplitude 
ON  KEY(9)  GOSUB  Feed 
ON  KEY(IO)  GOSUB  endphasel 

VIA  =  16 

FOR  c  =  1  TO  VIA 
READ  VIS(c) 

NEXTc 

freqs  =  5 

FOR  loadfreq  =■•  1  TO  freqs 
READ  freq$(loadfreq) 

NEXT  loadfreq 

FOR  Table  =  1  TO  2 
FOR  loadamp  =  1  TO  18 
READ  Amp$(Table,  loadamp) 

NEXT  loadamp 
NEXT  Table 
Table  =  3 

amps  =  42 

FOR  loadamp  =  1  TO  amps 
READ  Amp$(Table,  loadamp) 

NEXT  loadamp 

CALL  loadvi 

contrasts  =  32 

FOP  loadcontrast  =  1  TO  contrasts 


READ  Voltage(loadcontrast) 

NEXT  loadcontrast 

FOR  loadcontrast  =  1  TO  contrasts 
READ  Sensitivity(loadcontrast) 

NEXT  loadcontrast 

RESTORE 

ON  ERROR  GOTO  errcheck 

LOCATE  10,  20:  PRINT  "Checking  Status  of  Prmter . " 

LPRINT  CHR$(255); 

LPRINT  CHR$(27);  CHR$(15); 

WIDTH  "LPTl;",  130 


mainmenu; 

CLS 
ss  =  0 

ERASE  Tamp,  TampC,  rt.  Lamp,  LampC 
LleverON  =  0 
PullSleep  =  0 

fa$  =  "\  \  \  \  \  \  \  \  \  \ 

fb$  =  "\  \  \  \  \  \  \  \  \ 

fd$  =  •'###\\###  ####  ##.###  ###.##  \  \ 

V 

frc$  «  "FREQUENCY  =  \  \  Hz  “ 
ampl$  =  "AMPLITUDE  =  \  \  Volts" 
vvi$  =  "VI  =  ###  " 
mode$  a  "MODE  =  \  \" 

previous  »  0 

LOCATE  2,  2:  PRINT  DATES 
LOCATE  4,  center 
PRINT  menus 

LOCATE  6,  23:  PRINT  "1 . Stage  0  Training" 

LOCATE  7,  23:  PRINT  "2 . Stage  1  Training" 

LOCATE  8,  23:  PRINT  "3 . Stage  2  Training" 

LOCATE  9,  23:  PRINT  "4 . . .Stage  3  Procedures" 

LOCATE  10,  23:  PRINT  "X . Quit  Program" 

LOCATE  12,  make:  PRINT  makeS 
selection  =  0 

TestKey: 

WHILE  selection  =  0 
a$  =  INKEYS 

LOCATE  2,  68:  PRINT  TIMES 
IF  aS  =  ""  THEN  GOTO  TestKey 
selection  =  INSTR("1234Xx",  a$) 

WEND 

ON  selection  GOSUB  StageO,  Stagel,  Stage2,  Stagc2,  quit,  quit 
GOTO  mainmenu 
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StageO: 

FOR  keyn  =  1  TO  2 
KEY(keyn)  ON 
NEXT  keyn 

FOR  keyn  =  5  TO  10 
KEY(keyn)  ON 
NEXT  keyn 

Stages  =  "Stage  0" 
combo  =  1 
Fed  =  0 
phase  =  0 
testphase  =  1 
GOSUB  EntryScreen 
CLS 

PRINT  #1,  "SHOW  ME  ON" 

KEY  ON 

PRINT  #1,  "AMP  =  "  +  Amp$(Table,  t) 

PRINT  #1,  "FREQ*"  +  freq$(n) 

PRINT  #1,  "ME  ON" 

ON  TIMER(length)  GOSUB  endphasel 
TIMER  ON 

LOCATE  9,  1:  PRINT  "Starting  Time . : ";  TIMES 

LOCATE  10,  1:  PRINT  "Current  Time . : " 

LOCATE  11,  1:  PRINT  "Session  Length . : ";  SessionLength 

LOCATE  13, 1:  PRINT  "Number  pellets  received..: " 
fcrl  -  TIMER  +  FCR 
icrl  *  TIMER  +  ICR 
GOSUB  Select VI 

LOCATE  15, 1:  PRINT  USING  "First  Pellet  m  ###  Seconds":  VIset 

peUetl  =  TIMER  +  VIset 

LOCATE  9,  54:  PRINT  USING  wiS;  v 

LOCATE  10,  54:  PRINT  USING  fieS;  freqS(n) 

LOCATE  11,  54:  PRINT  USING  amplS;  AmpS(TabIe,  t) 

LOCATE  12,  54:  PRINT  USING  modeS;  "Stage  0" 

BpO: 

DO 

LOCATE  10,  28:  PRINT  TIMES 

fcr2  =  TIMER 
icr2  =  TIMER 
pellet2  =  TIMER 

IF  INT(fcr2)  >  =  INT(fcrl)  THEN 
GOSUB  FreqChange 

LOCATE  10,  54:  PRINT  USING  freS;  freqS(n) 

END  IF 

IF  INT(icr2)  >  =  INT(icrl)  THEN 
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GOSUB  InteiisityChange 

LOCATE  11,  54:  PRINT  USING  ampl$;  Ainp$(Table,  t) 

END  IF 

IF  INT(pellet2)  >  =  INT(pelletl)  THEN 
OUT  777,  4  *  Tui  n  on  Pellet  Feeder 

FOR  X  =  1  TO  3500:  NEXT  x  ’  Delay  for  feeder  operation 

OUT  777,  0  ’  Turn  off  Pellet  Feeder 

Fed  =  Fed  +  1 

LOCATE  13,  28:  PRINT  USING  "###";  Fed 
GOSUB  SelectVI 

LOCATE  15,  1:  PRINT  USING  "Next  PeUet  in  ###  Seconds  VIset 
pelletl  =  TIMER  +  VIset 
END  IF 

LOOP 

Stagel: 

FOR  keyn  =  1  TO  2 
KEY(keyn)  ON 
NEXT  keyn 

FOR  keyn  =  5  TO  10 
KEY(keyn)  ON 
NEXT  keyn 

Stages  =  "Stage  1" 

St  =  1 
Table  1 
phase  =  2 
testphase  =  2 
GOSOB  EntryScreen 
GOSUB  PrbtHeader 

LPRINT  USING  fa$;  "VI";  "Freq";  "Amp";  "RT";  "SC";  "Relative  Contrast  Voltage" 

LPRINT  USING  fb$;  "(sec)";  "(Hz)";  "(V)";  "(sec)";  "MIN  "  +  STRING$(49,  "  -  ")  +  "  MAX" 
LPRINT  STRING$(130, "-") 

LPRINT 

WRITE  #2,  St,  av 
PRINT  #1,  "SHOW  ME  ON" 

KEY  ON 
GOSUB  Phase2a 
PRINT  #1,  "ME  OFF' 

GOTO  endphasel 

Phase2a: 

CLS 

phase  =  1 
Table  =  1 
bpl  =  1 
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ss  =  1 

RcsetVIset  “  0 

contrastON  =  0 

ContrastOFF  =  0 

totaltimeouts  =  0 

extendVI  =  0 

fcrl  =  TIMER  +  FCR 

icrl  =  TIMER  +  ICR 

peUetl  =  TIMER  +  VIsct 

first  =  TIMER 

first2  =  TIMER 

pulls  =  0 

Changed  =  0 

Fed  =  0 

fd  =  1 

av  =  18 

VIon  =  0 

sh  =  1 

LOCATE  19,  1 

PRINT  USING  "Reaction  Time . :  ###.####';  ReactionTime 


PRINT  #1,  "AMP  =  "  +  Amp$(Table,  t) 

PRINT  #1,  "FREQ="  +  freq$(n) 

PRINT  #1,  "ME  ON" 

LOCATE  9,  54:  PRINT  USING  vvi$;  v 
LOCATE  10,  54;  PRINT  USING  freS;  freq$(n) 

LOCATE  11,  54:  PRINT  USING  ampl$;  Amp$(Tablc,  t) 

LOCATE  12,  54:  PRINT  USING  mode$;  "Stage  1" 

CALL  zeroCTM51(BSA%) 

ON  TIMER(length)  GOSUB  endphasel 
TIMER  ON 

LOCATE  9,  1;  PRINT  "Start  Session  Time  :  TIMES 
LOCATE  11,  1:  PRINT  "Session  Length . ScssionLength 

BeginProcedure: 

DO 

LOCATE  10,  1:  PRINT  "Current  Session  Time..: ";  TIMES 
LOCATE  12,  1:  PRINT  SPACE$(30) 

IF  phase  =  2  THEN 

LOCATE  12,  1:  PRINT  STRINGS(50, " ") 

LOCATE  13,  1:  PRINT  USING  "NEXT  CONTRAST  IN  ###  SECONDS  VIset 
END  IF 

IF  VIon  >  0  THEN 

LOCATE  14,  1:  PRINT  "VI  start  number...: INT(checkpull),  "Target  number:";  INT(pelletl) 
END  IF 

fcr2  =  TIMER 
icr2  =  TIMER 


A-6 


pcUct2  =  TIMER 
cbeckpuU  =  TIMER 
pelletavetimer  =  TIMER 
IF  V  >  0  THEN 
ctime  =  TIMER 
tctime  =  TIMER 
END  IF 

IF  INT(fcr2)  >  =  INT(fcrl)  AND  sh  =  0  AND  combo  =  1  THEN  GOSUB  FreqChange 
IF  INT(icr2)  >  =  INT(icrl)  AND  sh  =  0  AND  combo  =  1  THEN  GOSUB  IntensityChange 
IF  INT(fcr2)  >  =  INT(fcrl)  AND  sh  =  0  AND  combo  -  2  THEN  GOSUB  FreqChange 
IF  INT(icr2)  >  =  INT(icrl)  AND  sh  =  0  AND  combo  =  3  THEN  GOSUB  IntensityChange 

leverl  =  INP(768) 

IF  leverl  >  2  AND  VIon  *=  0  THEN 
GOSUB  Graph 
GOSUB  GetReinforcement 
GOSUB  TestPulls 
sh  =  0 
END  IF 

IF  leverl  >  2  AND  VIon  =  2  THEN 
ContrastOFF  =  ContrastOFF  +  1 
SOUND  400,  .4 
GOSUB  TestPulls 
checkpull  =  TIMER 
GOSUB  Setok 
END  IF 

IF  VIon  «  1  THEN 

GOSUB  GetReinforcement 
sh  =  0 
VIon  =  2 
END  IF 

LeverHoldZ: 

IF  IN'r(pellct2)  >  =  INT(pelletl)  AND  VIon  =  2  THEN 
stage  =  3 

GOSUB  ShowGrad 
sh  =  1 
END  IF 

IF  VIon  =  3  AND  leverl  >  2  THEN  VIon  =  1 
LOOP 


Stage2: 

FOR  keyn  =  1  TO  10 
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KEY(keyn)  ON 
NEXTkcyn 

IF  a$  =  "3"  THEN  stage$  =  "Stage  2"  ELSE  stageS  =  "Stage  3" 

St  =  2 

IF  Stages  =  "Stage  3"  THEN  st  =  3 

IF  St  =  2  THEN  Table  =  2 

IF  St  =  3  THEN  Table  =  3 

phase  =  4 

testphase  =  0 

LleverON  =  0 

LleverOff  =  0 

RleverON  =  0 

RLeverOFF  =  0 

VITM  =  0 

GOSUB  EntryScreen 

GOSUB  PrintHeader 

LPRINT  USING  fa$;  "VI";  "Freq";  "Amp";  "RT;  "SC";  "Relative  Contrast  Voltage" 

LPRINT  USING  fb$;  "(sec)  ";  "(Hz)";  "(V)";  "(sec)";  "MIN  "  +  STRING$(49, "-")  +  "  MAX" 
LPRINT  STRING$(130, "-") 

LPRINT 

IF  yl$  =  T"  THEN 
ActiveModeS  =  "TRACK" 

LOCATE  12,  54:  PRINT  USING  modeS;  ActiveModeS 
END  IF 

KEY  OFF 
KEY  3,  "TO  <" 

KEY  4,  "TO  >" 

ON  KEY(3)  GOSUB  DccreaseTimeOut 
ON  KEY(4)  GOSUB  IncreaseTimeOut 
KEY(3)  ON 
KEY(4)  ON 
KEY  ON 


IF  ylS  =  "L"  THEN 
ActiveModeS  =  "LIMITS" 

LOCATE  12,  54:  PRINT  USING  modeS;  ActiveModeS 
END  IF 

IF  Stages  =  "Stage  3"  THEN 
IF  ylS  =  "C"  THEN 
ActiveModeS  =  "CONSTANT' 

p  =  0 

SOUND  470,  .4 

LOCATE  15,  1:  PRINT  SPACES(70) 

LOCATE  15,  20:  INPUT  "Number  of  Amplitude  Values:  ";  av 
FOR  novalues  =  1  TO  av 
SOUND  470,  .4 

LOCATE  15,  20:  PRINT  "Amplitude  Value  number ";  novalues; "  :  SPACE$(10) 


A-8 


LOCATE  15,  47:  INPUT  Amp$(Table,  novalues) 

LOCATE  20,  2:  PRINT  "Amplitudes  Selected:  " 

LOCATE  20,  24 

p  =  p  +  1 

FOR  pp  =  1  TO  p 
PRINT  Amp$(Table,  pp); " 

NEXT  pp 
NEXT  novalues 

t  =  INT(RND  ♦  av)  +  1 
Sfq:  SOUND  470,  .4 

LOCATE  17,  17:  INPUT  "Number  of  presentations  per  Value . : ",  np 

SOUND  470,  .4 

LOCATE  18,  17:  INPUT  "Enter  valid  frequency. . : ",  frq$ 

FOR  c  =  1  TO  (av  *  np) 
count(c)  =  0 
NEXTc 

FOR  n  =  1  TO  freqs 
IF  frq$  =  freq$(n)  THEN 
freq$  *  frq$ 

TrackingFrequencyS  =  freq$ 

GOTO  Skipsfq 
END  IF 
NEXTn 
BEEP 
GOTO  Sfq 
Skipsfq: 

LOCATE  17,  17:  PRINT  SPACE$(60) 

END  IF 
END  IF 

WRITE  #2,  St,  av 

PRINT  #1,  "SHOW  ME  ON" 

KEY  ON 

ON  combo  GOSUB  PhaseSa,  Phase3a,  Phase3a,  Pbase3a 
PRIbrr  #1,  "ME  OFF' 

GOTO  endphasel 

Phase3a: 

CLS 

responses  =  "N" 


PRINT  #1,  "AMP =20" 

PRINT  #1,  "FREQ  =  "  +  freq$(n) 

display  =  1 

PRINT  #1,  "AMP  =  0  FREQ  =  1" 

Phase3b: 

VIon  =  0 
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phase  =  3 
CLS 

LOCATE  10,  30:  INPUT  "Enter  Valid  VI: v 
FOR  c  «  1  TO  VU 

IF  VIS(c)  =  V  THEN  GOTO  Phase3acont 
NEXTc 
BEEP 

LOCATE  12,  10 

PRINT  "Not  a  Valid  VI  -  Enter  0,  4,  6,  8,  10,  12, 16,  20,  22,  23,  24,  26,  30,  36,  144" 
GOTO  Phase3b 

Phase3acont: 

CLS 

IF  V  >  =  4  THEN  GOSUB  InitVI 
ManualGrates  =  0 
fedmanual  »  0 
contrastON  =  0 
ContrastOFF  =  0 
bpl  =  0 

totaltimeouts  =  0 
exteudVI  =  0 
trial  *  0 
Cat  =  0 
catchtrial  *=  0 
getgrad  -  0 
sh  =  0 
pulls  a  0 
Changed  =  0 
Fed  =  0 

LOCATE  19,  1:  PRINT  USING  "Reaction  Time . :  ###.####";  ReactionTime 

SessionLengthSeconds  =  0 
SessionLengthSeconds  =  TIMER 

Bp2: 

PRINT  #1,  "AMP=0" 

PRINT  #1,  "FREQ="  +  freq$(n) 

LOCATE  9,  54:  PRINT  USING  vvi$;  v 
LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 

LOCATE  11,  54:  PRINT  USING  ampl$;  "0" 

IF  St  =  2  THEN 
ActiveModeS  =  "Stage  2" 

LOCATE  12,  54:  PRINT  USING  mode$;  ActiveModeS 
END  IF 

CALL  zeroCTM51(BSA%) 

IF  yl$  <  >  "C"  THEN  ON  TIMER(length)  GOSUB  cndphasel 
TIMER  ON 

LOCATE  9,  1:  PRINT  "Start  Session  Time....: TIMES 
LOCATE  11,  1:  PRINT  "Session  Length . SessionLength 
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WHILE  1  <  10 
PRINT  #1,  "AMP =20“ 

PRINT  #1,  "FREQ="  +  frcq$(n) 
1  =  INP(768) 

W'END 

WHILE  1  >  2 
I  =  INP(768) 
aaa$  =  INKEY$ 

IF  aaa$  =  CHR$(13)  THEN  1  =  0 
WEND 

GOSUB  FeedPellet 
firstpellet  =  1 

delay  =  TIMER  +  SleepTime 

IF  UCASE$(triaIs$)  =  "Y"  THEN 
SELECT  CASE  v 
CASE  6 

catch  =  14 
CASES 

catch  =  12 
CASE  10 

catch  =  11 
CASE  12 

catch  =  10 
CASE  16 

catch  =  8 
CASE  20 

catch  =  6 
CASE  22 

catch  =  5 
CASE  23 

catch  =  5 
CASE  24 

catch  =  5 
CASE  26 

catch  =  4 
CASE  30 

catch  =  4 
CASE  36 

catch  =  3 
END  SELECT 
END  IF 

GOSUB  InitVI 

count  =  1 
averagepellets  =  1 
fcrl  =  TIMER  +  FCR 
icrl  =  TIMER  +  ICR 
pelletl  =  TIMER  +  VIset 


first  =  TIMER 

first2  =  riMER 

show  =  TIMER  +  duration 

IF  yl$  =  "C"  THEN  VIon  =  1 

BeginProccdure2: 

DO 

LOCATE  10,  1;  PRINT  "Current  Session  Time..:  TIMES;  SPACE$(20) 
leverl  =  INP(768) 
lever2  =  INP(770) 

IF  lever2  >  2  AND  VIon  =  0  THEN 
stage  =  3 
lever2  =  0 
GOSUB  ShowGrad 
sh  =  1 
END  IF 

LOCATE  12,  1:  PRINT  STRING$(50. " ") 

LOCATE  13,  1:  PRINT  USING  "NEXT  CONTRAST  IN  ###  SECONDS  Vlset 

IF  TLCS  =  "C  THEN 
total  =  0 

FOR  c  =  1  TO  av 
total  =  total  +  count(c) 

IF  total  =  (av  *  np)  +  1  THEN  GOTO  endphasel 
NEXT  c 
END  IF 

fcr2  =  TIMER 
icr2  =  TIMER 
pellet2  =  TIMER 
show2  =  TIMER 
ctime  =  TIMER 
tctime  =  TIMER 
delay2  =  TIMER 
pelletavetimer  =  TIMER 
checkpull2  =  TIMER 

LOCATE  15,  72:  PRINT  "  " 

IF  INT(show2)  >  =  INT(show)  AND  VIon  =  2  THEN 

RFHR: 

IF  fedmanual  =  0  THEN 
missedS  =  "MC" 

ReactionTime  =  0 
miss  =  1 
me  =  1 
ELSE 

missedS  =  "EPC" 
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fedmanual  =  0 
IF  me  =  0  THEN  miss  =  0 
IF  me  =  1  THEN  miss  =  1 
END  IF 
’miss  =  1 
ctrial  =  etrial  +  1 

WRITE  #2,  V,  VIset,  freq$(n),  Amp$(Table,  t),  ReactionTime,  Totalex,  missedS,  TLC$ 

Amp  =  VAL(Amp$(Table,  t)) 
freq  =  VAL(freq$(n)) 

IF  missedS  =  "EPC"  THEN  Amp  =  20 
IF  UCASE$(TLC$)  =  "T"  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  “C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 

LPRINT  USING  fd$;  v; VIset;  freq;  Amp;  ReaetionTime;  missedS;  t$ 

GOSUB  NewVI2 
PRINT  #1,  "AMP=0" 

PRINT  #1,  "FREQ  =  ";  freq$(n) 

Vion  =  1 
missedS  =  ” " 

END  IF 

IF  delay2  >  =  delay  THEN 
levereheek  =  INP(768) 

IF  levereheek  >  2  AND  VIon  =  2  THEN 
SOUND  1600,  .4 
GOSUB  GetReinforeement 
delay  =  TIMER  +  SleepTime 
sh  =  0 

IF  phase  =  4  THEN 
Vion  =  1 

IF  St  <>  2  THEN  GOSUB  FreqChange 
IF  phase  =  3  AND  st  <>  2  THEN  GOSUB  IntensityChange 
END  IF 
END  IF 
END  IF 

IF  INT(pellet2)  >  =  INT(peUetl)  AND  Vion  =  1  THEN 
GOSUB  ShowGrad 
sh  =  1 
END  IF 

IF  INT(fcr2)  >  =  INT(ferl)  AND  sh  =  0  AND  combo  =  1  AND  st  =  2  AND  Vion  <>  2  THEN 
GOSUB  FreqChange 
END  IF 

IF  INT(ier2)  >  =  INT(ierl)  AND  sh  =  0  AND  combo  =  1  AND  st  =  2  AND  Vion  <>  2  THEN 
GOSUB  IntensityChange 
END  IF 

IF  INT(fcr2)  >  =  INT(fcrl)  AND  sh  =  0  AND  combo  =  2  AND  st  =  2  AND  Vion  <>  2  THEN 
GOSUB  FreqChange 
END  IF 

IF  INT(icr2)  >  =  INT(icrl)  AND  sh  =  0  AND  combo  =  3  AND  st  =  2  AND  Vion  <>  2  THEN 
GOSUB  IntensityChange 
END  IF 
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IF  delay2  >  =  delay  THEN 

IF  VIon  <  3  AND  leverl  >  2  THEN  GOSUB  CheckLeft 
END  IF 

IF  St  >  =  2  THEN  LOCATE  14,  1:  PRINT  "VI  start  number...;  INT(checkpull2),  "Taiget  number 
INT(peUetl) 

IF  VIon  =  2  AND  lever2  >  2  THEN  GOSUB  CheckRight 

IF  VIon  =  3  AND  lever2  >  2  AND  stage  =  3  THEN  GOSUB  CheckRight 

IF  VIon  =  3  AND  lever2  >  2  AND  phase  =  3  THEN  GOSUB  CheckRight 

IF  VIon  =  1  AND  lever2  >  2  AND  phase  =  4  THEN  GOSUB  CheckRightOFF 

IF  VIon  =  3  AND  leverl  >  2  THEN 

SOUND  1600,  .4 
GOSUB  GetReinforcement 
sh  =  0 

IF  phase  =  3  THEN 
VIon  =  0 

IF  st  <>  2  THEN  GOSUB  FrcqChangc 
IF  phase  =  3  AND  st  <>  2  THEN  GOSUB  IntensityChange 
END  IF 
END  IF 

LOOP 


TuneUp: 

freq  =  VAL(freq$(n)) 
freq  =  freq  +  5 
freq$(n)  =  STR$(freq) 

IF  display  =  1  THEN  LOCATE  10,  54:  PRINT  USING  fre$i  freq$(n) 
RETURN 

TuneDown: 

freq  =  VAL(freq$(n)) 
freq  =  freq  -  5 
IF  freq  <  10  THEN  freq  =  5 
freq$(n)  =  STR$(freq) 

IF  display  =  1  THEN  LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 
RETURN 


Limit: 

TLC$  =  "L" 

ActiveModeS  =  "LIMIT" 

LOCATE  12,  54:  PRINT  USING  mode$;  ActiveModeS 
KEY  3,  "TRACK" 

KEY  4,  "  " 

ON  KEY(3)  GOSUB  Track 
KEY(3)  ON 
KEY(4)  OFF 

RETURN 
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Track: 

TLC$  =  T" 

ActiveMode$  =  TRACK" 

LOCATE  12,  54:  PRINT  USING  mode$;  ActiveModeS 
KEY  3,  "LIMIT" 

KEY  4,  "  " 

ON  KEY(3)  GOSUB  Limit 
KEY(3)  ON 
KEY(4)  OFF 

RETURN 

CheckLeft: 

CheckLeft2: 

SOUND  400,  .4 

IF  firstpellet  =  1  THEN 
firstpellet  =  0 
RETURN 
END  IF 

IF  delay2  <  delay  AND  SleepTime  >  0  THEN 
ps  =  1 

PullSleep  =  PuUSleep  +  1 
RETURN 
END  IF 

LleverOff  =  LlcverOff  +  1 

LOCATE  21,  1:  PRINT  USING  "Timeouts..:  ####  Current  TO:  ###";  LleverOff;  Timeout 
Tout  »  Timeout  +  TIMER 
CheckTimeout  =  TIMER 

TimeOutRoutine: 

WHILE  CheckTimeout  <  Tout 
CheckTimeout  =  TIMER 
c  =  INP(768) 

IF  c  >  2  THEN  Tout  =  TIMER  +  Timeout 
chk  =  1 

LOCATE  9,  40:  PRINT  CHR$(1) 

LOCATE  10,  1:  PRINT  "Current  Session  Time..:  TIMES 
checkpull  =  TIMER 
IF  VIon  >  0  THEN 

LOCATE  14,  1:  PRINT  "VI  start  number...:  INT(chcckpull),  "Target  number:";  INT(pelletl) 
END  IF 

PRINT  #1,  "FREQ  =  1  AMP  =  0  ME  ON" 

WEND 

IF  VIon  <  3  THEN  GOSUB  TestPuUs 
PRINT  #1,  "AMP=0" 

PRINT  #1,  "FREQ  =  ";  freq$(n) 

IF  chk  =  1  THEN 

IF  ampltS  =  "C"  AND  cr$  =  "CR"  THEN  missedS  =  "CR"  ELSE  missedS  =  "TO" 
freqS  =  "0" 

IF  missedS  =  "TO"  THEN 
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ReactionTime  =  0 
amplt$  =  "O" 

END  IF 

WRITE  #2,  V,  VIset,  freq$,  amplt$,  ReactionTime,  Totalex,  missedS,  TLC$ 

Amp  =  VAL(Amp$(Table,  t)) 
freq  =  VAL(freq$(n)) 

IF  missed$  =  "CR"  THEN 
freq  =  0 
Amp  =  0 
END  IF 

IF  UCASE$(TLC$)  =  T"  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  "C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 

LPRINT  USING  fd$;  v;  VIset;  freq;  Amp;  ReactionTime;  missedS;  t$ 
amplt$  =  "" 

SelectNewVIAgain: 

peUetl  =  TIMER  +  VIset 

LOCATE  17,  1:  PRINT  "New  VI  due  TO  error . VIset 

END  IF 
NewVI3: 

peUet2  =  TIMER 

IF  INT(pellet2)  >  =  INT(pelletl)  +  5  THEN 
GOSUB  Select VI 

IF  (TIMER  +  VIset)  -  INT(checkpull2)  <  5  THEN  GOTO  NewVI3 
pelletl  =  TIMER  +  VIset 

LOCATE  17,  1:  PRINT  "New  VI  due  to  error . VIset 

END  IF 

LOCATE  12,  1:  PRINT  STRING$(50, " ") 

LOCATE  13,  1:  PRINT  USING  "NEXT  CONTRAST  IN  ###  SECONDS  ";  VIset 
chk  =  0 
RETURN 

CheckRight: 

cbeckpulI2  =  TIMER 
HoldRight: 

firstpellet  =  0 
SOUND  1200,  .4 

IF  VIon  =  3  AND  stage  =  3  THEN  RleverON  =  RIeverON  +  1 

IF  VIon  =  2  THEN  RleverON  =  RleverON  +  1 

LOCATE  22,  1:  PRINT  USING  "Right  lever  ON....:  ####  ";  RleverON 

lever2  =  0 

DO 

TestPullRight  =  INP(770) 

LOCATE  9,  40:  PRINT  CHR$(4) 

LOCATE  10,  1:  PRINT  "Current  Session  Time..:  “;  TIMES 
checkpuU  =  TIMER 
IF  VIon  >  0  THEN 

LOCATE  14,  1:  PRINT  "VI  start  number...: ";  INT(checkpull),  "Target  number:";  INT(pelletl) 
END  IF 
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IF  checkpuU  >  =  INT(show)  THEN 
feedmanual  =  0 
RETURN  RFHR 
END  IF 

LOOP  UNTIL  TestPullRight  <  3 
LOCATE  9,  40:  PRINT  " " 

RETURN 

RETURN 

CheckRightOFF: 

checkpulI2  =  TIMER 

HoldRight2; 

SOUND  1600,  .4 
DO 

riever  =  INP(770) 
pelleG  =  TIMER 
LOCATE  9,  40:  PRINT  CHR$(2) 

LOCATE  10,  1:  PRINT  "Current  Session  Time..:  TIMES 
checkpuU  =  TIMER 

IF  Vlon  >  0  THEN 

LOCATE  14,  1:  PRINT  "VI  start  number..,: INT(checkpull),  "Target  number:";  INT(pelletl) 
END  IF 

IF  INT(peUet3)  >  =  INT(pelletl)  +  5  THEN 
GOSUB  SelectVI 
missedS  =  " " 

GOSUB  WriteMissed 

pelletl  =  TIMER  +  VIset 

LOCATE  12,  1:  PRINT  STRING$(50,  “ ") 

LOCATE  13,  1:  PRINT  USING  "NEXT  CONTRAST  IN  ###  SECONDS  VIset 
END  IF 

LOOP  WHILE  riever  >  2 
RLeverOFF  =  RLeverOFF  +  1 

LOCATE  23,  1:  PRINT  USING  "Right  lever  OFF...:  ####  ";  RLeverOFF 
lever2  =  0 

LOCATE  9,  40:  PRINT  " " 

RETURN 

Setok: 

pp  =  pp  +  1 

puUs  =  puUs  +  1 

LOCATE  16,  1:  PRINT  "Lever  was  puUed  less  than  5  seconds  before  VI..:  NO  " 

LOCATE  17,  50:  PRINT  " 

LOCATE  14,  1:  PRINT  "VI  start  number.,.:  INT(checkpull),  "Target  number;";  INT(peUetl) 

IF  INT(peUetl)  -  INT(cher;kpuU)  <  5  THEN 
extendVI  =  extendVI  +  1 
LOCATE  16,  51:  PRINT  "YES" 
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NewVI: 

GOSUB  SclectVI 

IF  (IIMER  +  Vlset)  -  INT(checkpull)  <  5  THEN  GOTO  NewVI 
pelletl  =  TIMER  +  Vlset 

LOCATE  17,  1:  PRINT  "New  VI  due  to  error . Vlset 

END  IF 

RETURN 

ShowGrad: 

IF  UCASE$(trials$)  =  "Y"  THEN  ctrial  =  ctrial  +  1  ’  Count  for  catch  trials 
ShowGrad2: 

DO 

levercheck  =  INP(768) 

LOOP  UNTIL  levercheck  <  5 
missedS  =  " " 

IF  St  >  =  2  AND  VIon  =  1  THEN 
VITM  =  VITM  +  1 

LOCATE  16,  1:  PRINT  "Lever  was  pulled  during  5  second  hold  time . :  NO" 

LOCATE  17,  50:  PRINT  " 

LOCATE  14,  1:  PRINT  "VI  start  number.,.: INT(checkpull2),  "Target  number:";  INT(pelletl) 

LOCATE  16,  51:  PRINT  "  NO" 
chck2  =  TIMER  +  5 

IF  St  >  1  AND  St  <>  2  THEN 

IF  combo  =  1  OR  combo  =  2  THEN  n  =  INT(RND  *  freqs)  +  1 
IF  combo  =  1  OR  combo  =  3  THEN  t  =  INT(RND  *  av)  +  1 
END  IF 

IF  TLC$  =  "C"  THEN 
t  =  INT(RND  *  av)  +  1 
END  IF 

LOCATE  9,  54:  PRINT  USING  vvi$;  v 

LOCATE  11,  54:  PRINT  USING  ampl$;  Amp$(TabIe,  t) 

LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 

LOCATE  12,  54:  PRINT  USING  mode$;  ActiveModeS 

GOSUB  CheckpulB 

IF  getgrad  =  1  THEN  GOTO  getgrad 

GOSUB  WriteMissed 

NewVI2: 

GOSUB  SelectVI 

IF  (TIMER  +  Vlset)  -  INT(checkpu!12)  <  5  THEN  GOTO  NewVI2 
pelletl  =  TIMER  +  Vlset 
extendVI  =  extendVI  +  1 

LOCATE  17,  1:  PRINT  "New  VI  due  to  error . Vlset 

RETURN 
END  IF 

getgrad: 
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delay  “  TIMER 
getgrad  =  0 

IF  St  >  =  2  THEN  LOCATE  16,  1:  PRINT  "Lever  was  pulled  during  5  second  hold  time, 
show  =  TIMER  +  duration 
show2  =  TIMER 
fd  =  1 

IF  V  >  4  AND  UCASE$(trials$)  =  "Y"  THEN 
IF  Amp$(Table,  t)  =  "C"  AND  trial  =  0  THEN 
GOSUB  ShowCatchTrial 
GOSUB  CheckPull4 
IF  missed$  =  "C"  THEN 
GOSUB  WriteC 
END  IF 
GOTO  ByPass 
END  IF 
END  IF 

IF  UCASE$(trials$)  -=  "Y"  THEN 

IF  ctriaJ  >  =  catch  AND  trial  =  0  AND  VIon  <>  0  AND  v  >  4  AND  st  >  =  2  THEN 
GOSUB  ShowCatchTrial 
trial  =  0 
ctrial  =  0 

GOSUB  CheclcPull4 
IF  missedS  =  "C"  THEN 
GOSUB  WriteC 
END  IF 
GOTO  ByPass 
END  IF 
END  IF 

PassCatch: 

IF  Amp$(Table,  t)  =  "C"  THEN 
t  =  INT(RND  *  av)  +  1 

IF  Amp$(Table,  t)  =  "C"  THEN  GOTO  PassCatch 
END  IF 

IF  ctrial  =  catch  THEN  trial  =  0 

IF  TLC$  =  "T"  THEN 
IF  seG  =  1  AND  miss  =  0  THEN 
last  =  1 
t  =  t  -  1 

IF  t  <  1  THEN  t  =  1 
IF  Amp$(Table,  t)  =  "C"  THEN 
t  =  t  -  1 

IF  t  <  1  THEN  t  =  1 
END  IF 
END  IF 

IF  seG  =  1  AND  miss  =  1  THEN 
last  =  2 


:  YES’ 
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t  =  t  +  1 

IF  t  >  av  THEN  t  =  av 
IF  Amp$(Table,  t)  =  "C"  THEN 
t  =  t  +  1 

IF  t  >  av  THEN  t  =  av 
END  IF 
END  IF 
END  IF 
CheckC2: 

IF  TLC$  =  "C"  THEN 
VIon  =  1 

t  =  INT(RND  *  av)  +  1 
FOR  1  =  1  TO  av 

IF  Ainp$(Table,  t)  =  Amp$(Table,  I)  THEN 
IF  total  =  (av  *  np)  THEN  GOTO  endphasel 
IF  count(l)  >  =  np  THEN  GOTO  ChcckC2 
count(l)  =  count(l)  +  1 
END  IF 
NEXT  1 
END  IF 

OutputGrate; 
miss  =  0 

PRINT  #1,  •'FREQ  =  "  +  freq$(n) 

PRINT  #1,  "AMP  =  "  +  Amp$(Table,  t) 
amplt$  =  Amp$(Table,  t) 

IF  VIon  =  1  THEN  VIon  =  2  ELSE  Vlon  =  3 

ByPass: 

LOCATE  9,  54:  PRINT  USING  vvi$;  v 
LOCATE  11,  54:  PRINT  USING  ampl$;  ampltS 
LOCATE  10,  54:  PRINT  USING  fre$;  frcq$(n) 

LOCATE  12,  54:  PRINT  USING  mode$;  ActiveModcS 

CALL  zeroCTM51(BSA%) 

IF  VIon  =  1  THEN  CALL  readCTM51(ct(),  BSA%) 

IF  stage  =  3  THEN  CALL  readCTM51(ct(),  RSA%) 

IF  St  =  2  OR  St  =  3  THEN  CALL  readCTM51(ct(),  BSA%) 
begin  =  ct(l)  /  1000 
ReactionTime  =  0 

LOCATE  19,  1:  PRINT  USING  "Reaction  Time . :  ###.####";  ReactionTime 

IF  ctriai  >  =  catch  THEN  ctrial  =  0:  trial  =  0 
RETURN 

WriteMissed: 

IF  missedS  <  >  "C"  THEN  missedS  =  "MVI" 

ReactionTime  =  0 
freq$  =  "0":  amplt$  =  "0" 

WRITE  #2,  V,  VIset,  freq$,  ampltS,  ReactionTime,  Totalcx,  missedS,  TLC$ 

Amp  =  VAL(Amp$(Table,  t)) 
freq  =  VAL(freq$(n)) 
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IF  UCASE$(TLC$)  =  "r  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  "C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 

LPRINT  USING  fd$;  v; VIset;  freq;  Amp;  ReactionTime;  missedS;  t$ 

missed$  =  "" 

RETURN 

WriteC: 
missed$  =  "C" 
freq$  =  "0":  amplt$  =  "0" 

WRITE  #2,  V,  VIset,  freqS,  amplt$,  ReactionTime,  Totalex,  missedS,  TLC$ 
Amp  =!  VAL(Amp$(Table,  t)) 
freq  =  VAL(freq$(n)) 

IF  UCASE$(TLC$)  =  "T"  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  "C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 
IF  missedS  =  "C"  THEN 
freq  =  0 
Amp  =  0 
END  IF 

LPRINT  USING  fd$;  v; VIset;  freq;  Amp;  ReactionTime;  missedS;  tS 

GOSUB  SelectVI 

pclletl  =  TIMER  +  VIset 

RETURN 

ShowCatchTrial; 

PRINT  #1,  "AMP  =  .005" 

VIon  =  1 
trial  =  1 
Cat  =  Cat  +  1 
AlsCatch  =  1 

ReactionTime  =  0:  missedS  =  "C" 
ampltS  =  AmpS(Table,  t) 

IF  ampltS  <  >  "C"  THEN  ampltS  =  "C" 

RETURN 

CheckpulB: 
chck  =  0 
ps  =  0 

DO 

levercheck  =  INP(768) 

LOOP  UNTIL  levercheck  <  5 


WHILE  chck  <  chck2 
CheckpulB  =  INP(768) 
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CheckPuU4  =  INP(770) 
chcckpuU  =  TIMER 

LOCATE  14,  1:  PRINT  "VI  start  number...:  INT(checkpull),  "Target  number:";  INT(pelletl) 
chck  =  TIMER 
IF  CheckPuU4  >  2  THEN 
IF  St  >  =  2  THEN  RLeverOFF  =  RLeverOFF  +  1 
getgrad  -  1 
SOUND  2200,  .4 
RETURN 
END  IF 

IF  CheckpuIB  >  2  THEN 
chk  =  1 
Ih  =  1 

delay2  =  TIMER 
GOSUB  CheckLeft2 

IF  ps  =  0  THEN  GOTO  BeginProcedure2 
END  IF 
WEND 
RETURN 

TestPuIls: 

TestPullRight  =  INP(770) 

TestPullLeft  =  INP(768) 

LOCATE  9,  40:  PRINT  CHR$(2) 

LOCATE  10,  1:  PRINT  "Current  Session  Time..: TIMES 
checkpull  =  TIMER 
IF  VIon  >  0  THEN 

LOCATE  14,  1:  PRINT  "VI  start  numbet...: INT(checkpull),  "Target  number:";  INT(pelletl) 
END  IF 

IF  (checkpull  >  =  (INT(pelletl)  +  duration))  THEN 
LOCATE  9,  40:  PRINT  " " 

RETURN  ’BeginProcedure2 

END  IF 

IF  TestPullLeft  >  2  THEN  GOTO  TestPuIls 
IF  TestPullRight  >  2  THEN  GOTO  TestPuUs 
LOCATE  9,  40:  PRINT  "  " 

RETURN 

CheckPull4: 

DO 

levercheck  =  INP(768) 

LOOP  UNTIL  levercheck  <  5 
chck2  =  TIMER  +  duration 
chck  =  0 
ps  =  0 

WHILE  chck  <  chck2 
Checkpull3  =  INP(770) 

CheckPull4  =  INP(768) 
chck  =  TIMER 

LOCATE  15,  72:  PRINT  "2  BAD" 

IF  CheckpulD  >  2  THEN 
WHILE  CheckpulU  >  2 
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Checkpull3  •■=  INP(770) 

WEND 

RLeverOFF  =*  RLeverOFF  +  1 

LOCATE  23,  1:  PRINT  USING  "Right  lever  OFF...:  ####  RLeverOFF 
END  IF 

IF  CheckPull4  >  2  THEN 
WHILE  CheckPull4  .>  2 
CheckPuU4  =  INP(768) 

WEND 
chk  =  1 
cr$  =■•  "CR" 
delay2  =  delay 
GOSUB  CheckUft2 
IF  ps  =  0  THEN  RETURN 
END  IF 
WEND 
RETURN 

IncreaseTiraeOut: 

Timeout  *  Timeout  +  1 

LOCATE  21,  1:  PRINT  USING  "Timeouts..:  ####  Current  TO:  ###";  LleverOff;  Timeout 
RETURN 

DecreaseTimeOut: 

Timeout  »  Timeout  •  1 

IF  Timeout  <  =  0  THEN  Timeout  =  0 

LOCATE  21, 1:  PRINT  USING  "Timeouts..:  ####  Current  TO:  ###";  LleverOff;  Timeout 
RETURN 

Increase  VI: 

IF  V  =  0  THEN 

V  =  4 

GOSUB  InitVI 
RETURN 
END  IF 

IF  V  =  4  THEN 

V  =  6 
catch  =  20 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  6  THEN 

V  =  8 
catch  =  12 
GOSUB  InitVI 
RETURN 

END  IF 
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IF  V  -  8  THEN 

V  =  10 
catch  >=11 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  10  THEN 

V  =  12 
catch  =  10 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  12  THEN 

V  -  16 
catch  =  8 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  16  THEN 

V  e  20 
catch  e  S 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  -  20  THEN 

V  =  23 
catch  =  5 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  23  THEN 

V  =  24 
catch  =  5 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  24  THEN 
V  =  26 
catch  =  4 
GOSUB  InitVI 
RETURN 
END  IF 


IF  V  =  26  THEN 


V  =  30 
catch  =  4 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  »  30  THEN 

V  =  36 
catch  =  3 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  36  THEN 

V  =  55 
catch  1 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  *  55  THEN 

V  =  144 
catch  =  1 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  144  THEN 

V  =  144 
catch  *  1 
GOSUB  InitVI 
RETURN 

END  IF 


Decrease  VI: 

IF  V  =  0  THEN 

V  =  0 

GOSUB  InitVI 
RETURN 
END  IF 

IF  V  =  4  THEN 

V  =  4 

GOSUB  InitVI 
RETURN 
END  IF 

IF  V  =  6  THEN 

V  =  4 
catch  =  30 
GOSUB  InitVI 
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RETURN 
END  IF 

IF  V  =  8  THEN 

V  =  6 
catch  =  20 
GOSUB  InitVI 
RETURN 
END  IF 


IF  V  =  10  THEN 

V  =  8 
catch  =  12 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  12  THEN 

V  =  10 
catch  =  11 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  16  THEN 

V  =  12 
catch  =  10 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  20  THEN 

V  =  16 
catch  =  8 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  23  THEN 

V  =  20 
catch  =  5 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  24  THEN 

V  =  23 
catch  =  5 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  26  THEN 
V  =  24 
catch  =  5 
GOSUB  InitVI 
RETURN 
END  IF 


IF  V  =  30  THEN 

V  =  26 
catch  =  5 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  36  THEN 

V  =  30 
catch  =  4 
GOSUB  InitVI 
RETURN 

END  IF 

IF  V  =  55  THEN 

V  =  36 
catch  =  3 
GOSUB  InitVI 
RETURN 

END  IF 


IF  V  =  144  THEN 
V  =  55 
catch  =  3 
GOSUB  InitVI 
RETURN 
END  IF 


InitVI: 

GOSUB  SelectVI 

PRINT  #1,  "AMP=0" 

pelletl  =  TIMER  +  Vlset 

fcrl  =  TIMER  +  FCR 

icrl  =  TIMER  +  ICR 

LOCATE  9,  54:  PRINT  USING  vvi$; 

Changed  =  Changed  +  1 

VIon  =  1 

CALL  zeroCTM51(BSA%) 
fd  =  0 

IF  St  >  =  1  THEN  phase  =  2 
IF  st  >  =  2  THEN  phase  =  4 
tcurrenttime  =  0:  tavcount  =  0 


tcurrent  =  0:  tctimc  =  0 
tavetimer  =  TIMER 
taveragetime  =  0 

setfirstpelletonvichange  =  setfirstpelletonvichange  +  1 
IF  setfirstpelletonvichange  =  1  THEN 
first  =  TIMER 
END  IF 
first2  =  TIMER 
averagepellets  =  0 
RETURN 

SelectVI; 

var  =  INT(RND  ♦  30)  +  1 
VIset  =  VI(v,  var) 

IF  AlsCatch  =  1  AND  VIset  >  15  THEN  GOTO  SelectVI 

AlsCatch  =  0 

RETURN 

FreqChange: 

IF  combo  =  1  OR  combo  =  2  THEN  n  =  INT(RND  *  freqs)  +  1 
IF  St  >  1  THEN  PRINT  #1,  "AMP=0" 

IF  testphase  =  1  AND  n  =  6  THEN  GOTO  FreqChange 
PRINT  #1,  "FREQ  =  "  +  freq$(n) 
fcrl  =  TIMER  +  FCR 

LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 

RETURN 

IntcnsityChange; 

IF  combo  =  1  OR  combo  =  3  THEN  t  =  INT(RND  *  av)  +  1 
IF  Amp$(Table,  t)  *  "C"  THEN  GOTO  IntensityCha^ige 
IF  ss  =  1  OR  phase  =  3  OR  st  =  2  THEN  GOTO  Skint 
PRINT  #1,  'AMP  =  "  +  Amp$(Table,  t) 

Skint: 

icrl  =  TIMER  +  ICR 

LOCATE  11,  54:  PRINT  USING  ampl$;  Amp$(Table,  t) 

RETURN 

GetReinforcement: 

GOSUB  GetReactionTime 
me  =  0 

IF  fd  =  1  THEN 
GOSUB  FeedPellet 
GOSUB  GetAverage 

LOCATE  23,  44:  PRINT  USING  "Number  PeUets  Received . :  ###";  count  +  Fed 

pulls  =  pulls  +  1 
contrastON  =  contrastON  +  1 
IF  SleepTime  >  0  OR  Vlon  <>  0  THEN 
PRINT  #1,  "AMP=0" 

PRINT  #1,  "FREQ  =  1100  ME  ON" 

END  IF 

total  =  total  +  VIset 
avetimer  =  TIMER 
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tavetimer  =  TIMER 
missedS  =  "  " 

WRITE  #2,  V,  Vlset,  freq$(n),  An3p$(Table,  t),  ReaclionTime,  Totalex,  missed$,  UCASE$(TLC$) 
Amp  =  VAL(Amp$(Table,  t)) 
freq  =  VAl-(freq$(n)) 

IF  UCASE$(TLC$)  =  "T"  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  "C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 

LPRINT  USING  fdS;  v; "  Vlset;  freq;  Amp;  ReaclionTime;  missedS;  t$ 

GOSUB  TestPulls 
GOSUB  Select VI 
pelletl  =  TIMER  +  Vlset 
delay  =  TIMER  +  SleepTimc 
IF  phasel  =  1  THEN 
LOCATE  11,  2 

PRINT  "NEXT  PELLET  IN  ";  Vlset; "  SECONDS  " 

END  IF 
END  IF 
fd  =  1 

LeverHoId: 

IF  VIon  =  3  THEN  VIon  =  1 
RETURN 

GetReactionTime: 

IF  VIon  >  0  THEN  CALL  readCn’M51(ct(),  BSA%) 

IF  VIon  =  0  THEN  pulls  =  pulls  +  1 
endpull  =  ct(l)  /  1000 
IF  VIon  >  0  THEN 

ReaclionTime  ®  endpull  -  begin 
LOCATE  19,  1 

PRINT  USING  "Reaction  Time . :  ###.####";  ReaclionTime 

ELSE  ReaclionTime  =  0 
END  IF 
RETURN 

GetAverage: 

IF  manualfeed  =  0  THEN 
LleverON  =  LleverON  +  1 
count  =  count  +  1 
averagepellets  =  averagepcllets  +  1 
END  IF 
IF  V  >  0  THEN 

IF  averagepellets  >  0  THEN 
averagetime  =  (pelletavetimer  -  first2)  /  averagepellets 
END  IF 

averagetimer  =  TIMER 

taveragetime  =  (averagetimer  -  first)  /  count 
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LOCATE  21,  44:  PRINT  USING  "Session  VI,. . ;  ###,#";  taveragetime 

LOCATE  22,  44:  PRINT  USING  "Interval  for  current  VI...,.:  ###.#";  averagetime 
END  IF 
RETURN 

FeedPcllet: 

OUT  777,  4 

FOR  X  =  1  TO  3500:  NEXT  x 
OUT  777,  0 

IF  VIon  =  1  OR  VIon  =  2  THEN 

LOCATE  11,  54:  PRINT  USING  ampl$;  "0.0" 

PRINT  #1,  "AMP=0" 

END  IF 

delay  =  TIMER 

RETURN 

IncreaseAmplitude: 
t  =  t  +  1 

IF  Amp$(Table,  t)  =  "C"  THEN  t  =  t  +  1 
IF  t  >  av  THEN  t  =  av 

LOCATE  11,  54:  PRINT  USING  ampl$;  Amp$(TabIe,  t) 

IF  St  =  1  AND  VIon  =  0  THEN  PRINT  #1,  "AMP="  +  Amp$(Table,  t) 

RETURN 

DecreascAmplitude: 
t  =  t  •  1 

IF  Amp$(Table,  l)  =  "C"  THEN  t  =  t  -  1 
IF  t  =  0  THEN  t  =  1 

LOCATE  11,  54:  PRINT  USING  ampIS;  Amp$(Table,  t) 

IF  St  =  1  AND  VIon  =  0  THEN  PRINT  #1,  "AMP="  +  Amp$(Table,  t) 

RETURN 
IncreaseFrequency: 
n  =  n  +  1 

IF  n  >  freqs  THEN  n  =  freqs 

LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 

PRINT  #1,  "FREO  =  "  +  freq$(n) 

RETURN 
DecreaseFrequency; 
n  =  n  -  1 

IF  n  =  0  THEN  n  =  1 

LOCATE  10,  54:  PRINT  USING  fre$;  freq$(n) 

PRINT  #1,  "FREO  =  "  +  freq$(n) 

RETURN 

Feed: 

IF  INT(pelletl)  -  INT(checkpuIl)  <  5  THEN  RETURN 
Iever2  =  0 
manualfced  =  1 

LOCATE  19,  47:  PRINT  "  Press  <  SPACE  BAR>  to  feed  " 
x.$  =  "" 

ReactionTime  =  0 

LOCATE  19,  1:  PRINT  USING  "Reaction  Time . :  ###.####";  ReactionTime 
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CALL  zeroCTM51(BSA%) 

CALL  readCTM51(ct(),  BSA%) 

begin  =  ct(l)  /  1000 

PRINT  #1,  "FREQ  =  "  +  freq$(n) 

PRINT  #1,  "AMP =20" 

ManualGrates  =  ManualGrates  +  1 

DO  UNTIL  (lever2  >  2)  OR  x$  =  " " 
x$  =  INKEYS 
lever2  =  INP(768) 

LOOP 

GOSUB  GetAverage 

manualfeed  =  0 

IF  x$  <>  " "  THEN 
Fed  =  Fed  -  1 
count  =  count  +  1 
LleverON  =  LleverON  +  1 
GOSUB  GetReactionTime 
END  IF 

Feed2; 
x$  =  "" 

LOCATE  19,  47;  PRINT  SPACE$(27) 

OUT  777,  4 

FOR  X  =  1  TO  3500:  NEXT  x 
OUT  777,  0 

IF  VIon  <>  0  THEN 
PRINT  #1,  "AMP  =  0" 

END  IF 
Fed  =  Fed  +  1 
IF  phase  =  0  THEN 
LOCATE  13,  28 
PRINT  USING  "###";  Fed 
ELSE 

LOCATE  23,  44:  PRINT  USING  "Number  Pellets  Received . :  ###";  count  +  Fed 

END  IF 

GOSUB  SelectVI 

LOCATE  12,  1:  PRINT  STRING$(50,  “ ") 

LOCATE  13,  1:  PRINT  USING  "NEXT  CONTRAST  IN  ###  SECONDS  ";  VIset 

pelletl  =  TIMER  +  VIset 

avetimer  =  TIMER 

tavetimer  =  TIMER 

VIon  =  2 

fedmanual  =  1 

delay  =  TIMER  +  SleepTime 
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RETURN 


EntryScreen: 

endl  =  0 
averagetime  =  0 
current  =  0 

avcount  =  0:  ctime  =  0 
currenttime  =  0:  avetimer  =  0 
taveragetime  =  0 
tcurrent  =  0 

tavcount  =  0:  tctime  =  0 
tcurrenttime  =  0:  tavetimer  =  0 

count  =  0 
startl  =  0 
total  =  0 
VIon  =  0 
sets  =  0 
trials$  =  "" 

na$  =  yl$  =  y2$  =  "" 

CLS 

IF  a$  -  "0"  OR  a$  =  "1"  OR  a$  =  "2"  OR  a$  =  "S"  THEN  av  =  18 
IF  a$  =  "4"  THEN  av  =  42 
IF  Stages  <  >  "Stage  3"  THEN 

LOCATE  2,  27:  PRINT  stageS; "  Training  Procedure" 

END  IF 

IF  Stages  =  "Stage  3"  THEN 
sets  =  1 
aS  =  "4" 

LOCATE  2,  20:  PRINT  stageS; "  *  Contrast  Sensitivity  Procedure  " 
END  IF 

LOCATE  5,  20:  PRINT  "Enter  file  name . :  " 

IF  VAL(aS)  =  4  THEN  naS  =  "N/A" 

LOCATE  6,  20:  PRINT  "Do  you  want  random  frequencies  (Y/N):  " 

IF  naS  =  "N/A"  THEN 

LOCATE  6,  20:  PRINT  "(T)racking,  (L)imits,  (C)onstant....:  " 
y2S  =  naS 
END  IF 

LOCATE  7,  20:  PRINT  "Do  you  want  random  intensities  (Y/N): naS 

LOCATE  8,  20:  PRINT  "Session  length  in  minutes . : " 

IF  stageS  =  "Stage  1"  OR  stageS  =  "Stage  0"  THEN 
naS  =  "N/A" 

ELSE  naS  =  "" 

END  IF 

IF  phase  =  0  THEN 

LOCATE  9,  20:  PRINT  "VI  Rate . :  " 

GOTO  Skip9 
END  IF 

LOCATE  9,  20:  PRINT  "Sleep  Time  in  seconds . :  ";  naS 
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Skip9: 

LOCATE  10,  20:  PRINT  "Time-Out  in  seconds . :  na$ 

LOCATE  11,  20:  PRINT  "Duration  of  Contrast.... . :  ";  na$ 

LOCATE  12,  20:  PRINT  "Do  you  want  catch  trials  (Y/N) . :  na$ 

SkipEntry: 

LOCATE  5,  58:  INPUT  "»",  file$ 

IF  LEN(file$)  <  1  THEN  GOTO  SkipEntry 


FileCheck: 

IF  DIR$(file$)  =  UCASE$(file$)  THEN  ’  Check  to  sec  if  file  already 

’  exists  in  directory 

BEEP 

LOCATE  22,  10 

PRINT  "File  already  exists  -  (W)rite  Over  or  (N)ew  Name?" 

DO 

qq$  =  INKEY$ 

LOOP  UNTIL  UCASE$(qq$)  =  "W"  OR  UCASE$(qq$)  =  "N" 
LOCATE  22,  10:  PRINT  SPACE$(50) 

IF  UCASE$(qq$)  =  "N"  THEN 
LOCATE  5,  59:  PRINT  SPACE$(15) 

GOTO  SkipEntry 
END  IF 
END  IF 

LOCATE  5,  58:  PRINT  " " 

TLC: 

LOCATE  6,  58:  INPUT  "»",  yl$ 
yl$  =  UCASE$(yl$) 

IF  Stages  =  "Stage  3"  THEN 
IF  (yl$  =  "T"  OR  yl$  =  "L"  OR  yl$  =  "C")  THEN 
GOTO  TLC2 
ELSE  GOTO  TLC 
END  IF 
END  IF 
TLC2: 

LOCATE  6,  58:  PRINT  " " 

IF  VAL(a$)  =  4  THEN  GOTO  SkEntry 
LOCATE  7,  58:  INPUT  "»",  y2$ 

LOCATE  7,  58:  PRINT  " " 

SkEntry: 

IF  ylS  =  "C"  THEN  LOCATE  8,  58:  PRINT  "N/A":  GOTO  SkipSession 
LOCATE  8,  58:  INPUT  "»",  SessionLength 
LOCATE  8,  58:  PRINT  " " 

SkipSession: 

IF  Stages  =  "Stage  1"  OR  stageS  -  "Stage  0"  THEN  GOTO  SkipEntry2 
in  VI: 

IF  phase  =  0  THEN 
LOCATE  9,  58:  INPUT  "»",  v 
LOCATE  9,  58:  PRINT  "  " 

END  IF 

LOCATE  9,  58:  INPUT  "»",  SleepTime 
LOCATE  9.  58:  PRINT  " " 
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SkipSleep: 

LOCATE  10,  58:  INPUT  Timeout 
LOCATE  10,  58:  PRINT  " " 

LOCATE  11,  58:  INPUT  "»",  duration 
LOCATE  11,  58:  PRINT  " " 

LOCATE  12,  58:  INPUT  "»",  trialsS 
LOCATE  12,  58:  PRINT  " " 

SkipEntry2: 

IF  phase  =  0  THEN 
LOCATE  9,  58:  INPUT  v 
LOCATE  9,  58:  PRINT  " " 

END  IF 

length  =  SessionLength  *  60 
start  =  TIMER 
IF  phase  <>  0  THEN 
OPEN  fdeS  FOR  OUTPUT  AS  #2 

WRITE  #2,  yl$,  y2$,  SessionLength,  SleepTime,  Timeout,  duration 
END  IF 

COMBOl: 

IF  UCASE$(yl$)  =  "Y"  AND  UCASE$(y2$)  =  "Y"  THEN 
LOCATE  15,  17:  PRINT  "You  selected  random  frequencies  and  intensities" 

LOCATE  17,  17:  INPUT  "Frequency  change  rate  in  minutes . : ",  FCR 

LOCATE  18,  17:  INPUT  "Intensity  change  rate  b  mbutes . :  ",  ICR 

FCR  =  FCR  *  60 
ICR  =  ICR  *  60 
n  =  INT(RND  *  freqs)  +  1 
CT: 

t  =  INT(RND  ♦  av)  +  1 

IF  Amp$(Table,  t)  =  "C"  THEN  GOTO  Cl 

IF  phase  <>  0  THEN 

WRITE  #2,  FCR  /  60,  ICR  /  60,  freq$(n),  Amp$(TabIe,  t) 

END  IF 


combo  =  1 
GOSUB  TestKey2 
END  IF 

C0MB02: 

IF  UCASE$(yl$)  =  "Y"  AND  UCASE$(y2$)  <  >  "Y"  THEN 

LOCATE  15,  17:  PRINT  "You  selected  random  frequencies  and  constant  mtensities" 

LOCATE  17,  17:  INPUT  "Frequency  change  rate  in  minutes . :  ",  FCR 

n  =  INT(RND  *  freqs)  +  1 
FCR  =  FCR  ♦  60 
combo  =  2 
SetVolts: 

LOCATE  18,  17:  INPUT  "Enter  valid  intensity . :  ",  volts$ 

ICR  =  0 
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FOR  t  =  1  TO  av 

IF  Amp$(Table,  t)  =  voIts$  THEN  GOTO  GoAhead2 
NEXT  t 
BEEP 

GOTO  SetVolts 
GoAhead2: 

IF  phase  <>  0  THEN 

WRITE  #2,  FCR  /  60,  ICR,  freq$(n),  Amp$(Table,  t) 

END  IF 

GOSUB  TestKey2 
END  IF 

C0MB03: 

IF  UCASE$(yl$)  <  >  "Y"  AND  UCASE$(y2$)  =  "Y"  THEN 

LOCATE  15,  17:  PRINT  “You  selected  a  constant  frequency  and  random  intensities" 
SetFreql: 

LOCATE  17,  17;  INPUT  "Enter  a  vaUd  frequency . ;  frq$ 

FOR  n  =  1  TO  freqs 

IF  frq$  =  freq$(n)  THEN  GOTO  goahead3 
NEXT  n 
BEEP 

GOTO  SetFreql 
goaheadS; 

LOCATE  18,  17:  INPUT  "Intensity  change  rate  in  minutes . : ",  ICR 

ICR  =  ICR  *  60 
FCR  =  0 
C3: 

t  =  INT(RND  *  av)  +  1 

IF  Amp$(Table,  t)  =  "C"  THEN  GOTO  C3 

combo  =  3 

IF  phase  <>  0  THEN 

WRITE  #2,  FCR,  ICR  /  60,  freq$(n),  Amp$(Table,  t) 

END  IF 

GOSUB  TestKey2 
END  IF 

C0MB04; 

IF  UCASE$(yl$)  =  "C"  THEN 

LOCATE  15,  17:  PRINT  "You  selected  Constant  Stimuli . " 

GOTO  GoAhead4 
END  IF 

IF  UCASE$(yl$)  <  >  "Y"  AND  UCASE$(y2$)  <  >  "Y"  THEN 

LOCATE  15,  17;  PRINT  "You  selected  constant  frequency  and  mtensity" 

SetFreq2: 

LOCATE  17,  17:  INPUT  "Enter  valid  frequency . ; ",  frq$ 

FOR  n  =  1  TO  freqs 

IF  frq$  =  freq$(n)  THEN  GOTO  SetVoIts2 
NEXT  n 
BEEP 

GOTO  SetFreq2 
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SetVolts2: 

LOCATE  18,  17;  INPUT  "Enter  valid  intensity . ; ",  volts$ 

FOR  t  =  1  TO  av 

IF  volts$  =  Amp$(Table,  t)  THEN  GOTO  GoAhead4 
NEXTt 
BEEP 

GOTO  SetVolts2 

GoAhead4: 
combo  =  4 
ICR  =  0 
FCR  =  0 
TLC$  =  yl$ 

IF  TLC$  =  "C"  THEN  freq$  =  "N/A":  Amp$  =  "N/A" 
freq$  =  freq$(n):  Ajmp$  =  Amp$(Table,  t) 

IF  phase  <>  0  THEN 
WRITE  #2,  FCR,  ICR,  freq$,  Ajnp$ 

END  IF 

GOSUB  TestKey2 
END  IF 

RETURN 

TestKey2: 
a$  =  "" 

COLOR  0,  7 

LOCATE  22,  24:  PRINT  "Information  Correct?  (Y/N)" 

SOUND  470,  .4 
COLOR  7,  0 
a$  =  INPUT$(1) 

IF  UCASE$(a$)  <  >  "Y"  THEN 
CLOSE  #2 
GOTO  EntryScreen 
END  IF 

LOCATE  22,  1;  PRINT  SPACE$(70) 

RETURN 

Tgraph: 

ta$  =  LTRIM$(STR$(Amp)) 

FOR  tcheck  =  1  TO  amps 
IF  ta$  =  Amp$(Table,  tcheck)  THEN 
t$  =  SPACE$(tcheck)  +  "T" 

RETURN 
END  IF 
NEXT  tcheck 
RETURN 

Lgraph: 

ta$  =  LTRIM$(STR$(Amp)) 

FOR  tcheck  =  1  TO  amps 
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IF  ta$  =  Amp$(Table,  tcheck)  THEN 
t$  =  SPACE$(tcheck)  +  "L" 


RETURN 
END  IF 
NEXT  tcheck 


RETURN 


Cgraph; 


ta$  «  LTRIM$(STR$(Amp)) 

FOR  tcheck  «  1  TO  amps 
IF  ta$  =  Amp$(Table,  tcheck)  THEN 
t$  =  SPACE$(tcheck)  +  "C" 


RETURN 
END  IF 


NEXT  tcheck 
RETURN 


Graph: 

ta$  =  LTRIM$(STR$(Amp)) 

FOR  (check  =  1  TO  amps 
IF  ta$  =  Anip$(TabIc,  (check)  THEN 
t$  =  SPACE$((chcck)  + 

RETURN 
END  IF 
NEXT  (check 
RETURN 

endphasel: 

CLS 

FinalSessionLengthSeconds  =  TIMER 

FSL  =  FinalSessionLengthSeconds  -  ScssionLengthSeconds 

TIMER  OFF 

PRINT  #1,  "ME  OFF' 

PRINT  #1,  "HIDE" 

PRINT  #1,  "FREO  =  0  AMP  =  0" 

OUT  777,  0 
KEY  OFF 
IF  phase  =  0  THEN 

LPRINT  "Subject  Number . :  filcS 

LPRINT  "Date:  ";  DATES 
LPRINT  "Time:  TIMES 
LPRINT 

LPRINT  USING  "Number  of  pellets  received . :  ####";  Fed 

LPRINT  USING  "Session  Length  (minutes) . :  ####";  SessionLength 

LPRINT  USING  "Average  VI . :  ###.##";  length  /  Fed 

LPRINT  CHRS(12) 

GOTO  mainmenu 
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OUT  779,  136 


END  IF 

IF  TLC$  =  "C"  THEN  GOTO  EndPhase2 

INPUT  "Extend  Session  Time  (Y/N)  y$ 

IF  UCASE$(y$)  =  "Y"  THEN 

INPUT  "Enter  Extended  Session  Time  (Minutes): ",  exsessiontime 

Totalex  =  Totalex  +  exsessiontime 

length  =  exsessiontime  60 

fcrl  a  TIMER  +  FOR 

icrl  =  TIMER  +  ICR 

current  =  0 

avetimer  =  0 

ctime  =  0 

tctime  “  0 

tavetimer  =  0 

PRINT  #1,  "SHOW  ME  ON":  KEY  ON 
KEY(IO)  OFF 

ON  KEY(IO)  GOSUB  endphasel 
KEY(IO)  ON 
PRINT  #1,  "AMP  =  0" 

IF  phase  =  1  OR  phase  =  2  THEN  GOSUB  Bp 
IF  phase  =  3  OR  phase  =  4  THEN  GOSUB  Bp2 
END  IF 


CLS 

EndPbase2: 

SOUND  470,  .4 
COLOR  0,  7 

LOCATE  10,  21:  PRINT  "  Prmting  in  Progress  -  Please  Standby  " 
COLOR  7,  0 

CLOSE  #2 

OPEN  filc$  FOR  INPUT  AS  #2 

OPEN  "XXXXX.DAT"  FOR  OUTPUT  AS  #3 

LPRINT 

WRITE  #3,  fde$,  DATES,  TIMES 

LPRINT 

LPRINT 

missed  =  0 

trans  =  0 

MVl  =  0 

ave  =  0 

tt  =  0 

tS  -  "  C 

INPUT  #2,  ylS,  y2$,  SessionLength,  SleepTime 
INPUT  #2,  Timeout,  duration,  FCR,  ICR,  freqS,  AmpS 
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INPUT  #2,  St,  av 
’frqS  =  frcq$ 

IF  yl$  =  TRACKING"  THEN  yl$  =  "r 
IF  yl$  =  "LIMITS"  THEN  yl$  =  "L" 

IF  yl$  =  "CONSTANT  STIMULI"  THEN  yl$  =  "C" 

TLC$  =  UCASE$(yl$) 

IF  UCASE$(yl$)  =  "T"  THEN  yl$  =  TRACKING" 

IF  UCASE$(yl$)  =  "L"  THEN  yl$  =  "LIMITS" 

IF  UCASE$(yl$)  =  "C"  THEN  yl$  =  "CONSTANT  STIMULI" 

LPRINT  CHR$(27);  CHR$(71):  CHR$(27);  CHR$(14); 

LPRINT  "INITIAL  SETTINGS:" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 

LPRINT 

LPRINT  "Random  Frequencies . :  UCASE$(yl$) 

LPRil'T  "Random  Amplitudes . ;  ";  UCASE$(y2$) 

LPRINT 

LPRINT  "Sessionlength  (Min) . :  SessionLength 

LPRINT 

LPRINT  "Frequency  Rate  Change  (Min).: FCR 
LPRINT  "Amplitude  Rate  Change  (Min).: ICR 
LPRINT 

LPRINT  "Initial  Frequency . : frq$ 

LPRINT  "Initial  Amplitude . : Amp$ 

LPRINT 

LPRINT'  "Sleep  Time  (Seconds) . :  SleepTime 

LPRINT  "Time  Out  (Seconds) . : Timeout 

LPRINT 

LPRINT  "Duration  of  Gratmg  (Sec)...: duration 

LPRINT  "Catch  Trials  (Y/N) . :  UCASE$(triaJs$) 

LPRINT 

WRITE  #3,  Stages,  yl$,  y2$,  SessionLength,  FCR,  ICR,  freq$,  Amp$ 

WRITE  #3,  SleepTime,  Timeout,  duration,  UCASE$(trials$) 

WRITE  #3,  St,  av 

X  =  18 
ave  =  0 
average  =  0 
WHILE  NOT  EOF(2) 

INPUT  #2,  V,  VTset,  freq$,  Amp$,  ReactionTime,  Totalex,  missedS,  TLC$ 
IF  missedS  =  "XXX"  THEN  GOTO  CheckPrcvious 
X  =  X  +  1 

IF  missedS  =  " "  THEN  average  =  average  +  1 
freq  =  VAL(freq$);  Amp  =  VAL(Amp$) 

Tamp  =  Amp 
Lamp  =  Amp 
tt  n:  tt  +  1 

Tamp$(tt)  =  LTRIM$(STR$(Tamp)) 

Lamp$(tt)  =  Tamp$(tt) 

IF  St  =  3  THEN 

IF  UCASE$(TLC$)  =  "T"  OR  UCASE$(TLC$)  =  "C"  THEN 
FOR  loadtt  =  1  TO  av 
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IF  Tainp$(tt)  =  Amp$(Tablc,  loadtt)  THEN 
Tamp(Ioadtt)  =  Tamp(loadtt)  +  1 
IF  (missedS  =  " ")  OR  (missedS  =  "EPC")  THEN 
TampC(loadtt)  =  TampC(loadU)  +  1 
rt(loadtt)  =  rt(Ioadtt)  +  ReactionTime 
END  IF 
Em  IF 
NEXT  loadtt 
END  IF 

IF  UCASE$(TLC$)  =  "L"  THEN 
FOR  loadU  =  1  TO  av 
IF  Lamp$(tt)  =  Anip$(Table,  loadll)  THEN 
l^mp^oadll)  =  Lamp(loadll)  +  1 
IF  (misscdS  =  " ")  OR  (missed$  =  "EPC")  THEN 
LarapC(loadll)  =  LampC(loadll)  +  1 
rt(loadll)  =  rt(loadll)  +  ReactionTime 
END  IF 
END  IF 
NEXT  loadll 
END  IF 
END  IF 

IF  missedS  =  "MC"  THEN 
missed  =  missed  +  1 
END  IF 

IF  missed$  =  "MVI"  THEN  MVl  =  MVI  +  1 
IF  missed$  =  "CR"  THEN  CatchTrials  =  CatchTrials  +  1 
IF  missedS  =  " "  THEN  ave  =  ave  +  Visi  t. 
t$  =  "" 

IF  UCASE$(TLC$)  =  T'  THEN  GOSUB  Tgraph 
IF  UCASE$(TLC$)  =  "L"  THEN  GOSUB  Lgraph 
IF  UCASE$(TLC$)  =  "C"  THEN  GOSUB  Cgraph 
IF  LEN(TLC$)  <  1  THEN  GOSUB  Graph 
WRITE  #3,  V,  VIset,  freq,  Amp,  ReactionTime,  missedS 
WEND 

CheckPrevious: 

w  =  0:  wlset  =  0:  ffreq  =  0:  aamp  =  0:  rreactiontime  =  0 
mi$  =  "XXX" 

WRITE  #3,  w,  wiset,  ffreq,  aamp,  rreactiontime,  mi$ 
ave VI  =  ave  /  average 
IF  previous  =  1  THEN 

INPUT  #2,  trials,  count,  Fed,  ContrastOFF,  RLeverOFF,  RieverON 
INPUT  #2,  LleverOff,  LleverON,  PuUSleep,  Cat,  CatchTrials,  Changed 
INPUT  #2,  Timeout 
END  IF 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR$(14); 

LPRINT  "HNAL  RESULTS:" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 


LPRINT 

LPRINT  USING  "PeUets  Received  as  a  Result  of  Work . :  ####";  count 

LPRINT  USING  "Manual  Pellets  Received . :  ####";  Fed 

LPRINT  USING  "Manual  Grates  Presented . :  ####";  ManualGrales 
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LPRINT  USING  "Total  Pellets  Received . . . :  ####";  count  +  Fed 

IF  St  =  1  THEN 

LPRINT  USING  "Total  Responses  with  Contrast  ON . :  ####";  count 

LPRINT  USING  "Total  Responses  with  Contrast  OFF . . . :  ####";  ContrastOFF 

LPRINT  USING  "Total  Responses  during  session . ;  ####";  count  +  ContrastOFF 

END  IF 

IF  st  >  =  2  THEN 

LPRINT  USING  "Right  Lever  Responses  with  Contrast  OFF . :  ####";  RLeverOFF 

LPRINT  USING  "Right  Lever  Responses  with  Contrast  ON  (Errors) . ;  ####";  RleverON 

LPRINT  USING  "Left  Lever  Responses  with  Contrast  OFF  (Errors/TO’s)..:  ####";  LleverOff 

LPRINT  USING  "Left  Lever  Responses  with  Contrast  ON . :  ####";  LleverON 

LPRINT  USING  "Left  Lever  Responses  During  Sleep  Time . ;  ####";  PuUSleep 

LPRINT  USING  "Total  Catch  Trials  Presented . :  ####";  Cat 

LPRINT  USING  "Total  Catch  Trials  Responded  To . :  ####";  CatchTrials 

LPRINT  USING  "Missed  Contrasts . ;  ####";  missed 

LPRINT  USING  "Number  of  VI  scheduled  trials  missed  by  subject . ;  ####";  MVI 

END  IF 

LPRINT  USING  "Average  Time  between  pellets . :  ####.##";  taveragetime 

LPRINT  USING  "VI  changes  during  this  session . :  ####";  Changed 

LPRINT  USING  "Ending  TIMEOUT  length . ;  ###?!'";  Timeout 

LPRINT  USING  "Session  Time  Extended  (Minutes) . :  ####";  Totalex 

LPRINT 

LPRINT  USING  "Session  Length  (min)....:  ######.##";  FSL  /  60 

LPRINT  USING  "Right  Lever  Respon.ses/sec...:  ######.##";  RLeverOFF  /  FSL 

LPRINT 


WRITE  #3,  trials,  count,  Fed,  ContrastOFF,  RLeverOFF,  RleverON 
WRITE  #3,  LleverOff,  LleverON,  PuUSleep,  Cat,  CatchTrials,  missed 
WRITE  #3,  MVI,  taveragetime.  Changed,  Timeout,  Totalex 

IF  st  =  3  THEN 

ovl$  =  "  \  \  \  \  \  \  \  \  \  \" 

ov2$  =  "  \  \  \  \" 

ov3$  =  "  ###  ##.###  ###  ###.#  ###.##  " 

IF  yl$  <  >  "LIMITS"  THEN 
LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR$(14); 

LPRINT  "Ordered  Voltages  Tested:  ";  yl$ 

LPRINT 

LPRINT  "Frequency  Tested:  frq$;  "  Hz" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 
yy$  =  LEFT$(yl$,  1) 

LPRINT 

LPRINT  USING  ovl$;  'Contrast  Sensitivity";  "Voltage";  "No.  Presented";  "Correct  Responses";  "Mean  RT" 


LPRINT  USING  ov2S;  "No."; "%  Correct' 
LPRINT  STRING$(1{)0,  "-") 

LPRINT 


FOR  pt  =  1  TO  av 
IF  Tamp(pt)  >  0  THEN 
IF  TampC(pt)  >  0  THEN 
Ampc  =  VAL(Amp$(Table,  pt)) 

GOSUB  GetContrast 

LPRINT  USING  ov3$;  Ampb;  VAL(Amp$(Table,  pt));  Tamp(pt);  TampC(pt);  (TampC(pt)  / 
Tamp(pt))  *  100;  rt(pt)  /  TampC(pt) 

ELSE 

Ampc  =  VAL(Ainp$(Table,  pt)) 

GOSUB  GetContrast 

LPRINT  USING  ov3$;  Ampb;  VAL(Amp$(Table,  pt));  Tamp(pt);  TampC(pt);  (TampC(pt)  / 
Tamp(pt))  *  100;  0 

END  IF 

IF  TampC(pt)  >  0  THEN 

WRITE  #3,  yy$,  Ampb,  VAL(Amp$(Table,  pt)),  Tamp(pt),  TampC(pt),  (TarapC(pt)  / 
Tamp(pt))  *  100,  rt(pt)  /  TampC(pt) 

ELSE  WRITE  #3,  yy$,  Ampb,  VAL(Amp$(Table,  pt)),  Tamp(pt),  TampC(pt),  (TampC(pt)  / 
Tamp(pt))  *  100,  0 

END  IF 
END  IF 
NEXT  pt 

LPRINT  :  LPRINT 
ELSE 

•IF  yl$  =  "CONSTANT  STIMULI"  THEN  GOTO  skiplimits 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR$(14); 

LPRINT  "Ordered  Voltages  Tested:  LIMITS  " 

LPRINT 

LPRINT  "Frequency  Tested: ";  frq$; "  Hz" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 

LPRINT 

LPRINT  USING  ovl$;  "Contrast  Sensitivity";  "Voltage";  "No.  Presented";  "Correct  Responses"; 
"Mean  RT" 

LPRINT  USING  ov2$;  "No."; "%  Correct" 

LPRINT  STRING$(100, "-") 

LPRINT 
Limits  =  "L" 

FOR  pt  =  1  TO  av 
IF  Lamp(pt)  >  0  THEN 
IF  LampC(pt)  >  0  THEN 
Ampc  =  VAL(Amp$(TabIe,  pt)) 

GOSUB  GetContrast 

LPRINT  USING  ov3$;  Ampb;  VAL(Amp$(Table,  pt));  Lamp(pt);  LampC(pt);  (LampC(pt)  / 
Lamp(pt))  *  100;  rl(pt)  /  LampC(pt) 

ELSE 

Ampc  =  VAL(Amp$(Table,  pt)) 

GOSUB  GetContrast 

LPRINT  USING  ov3$;  Ampb;  VAL(Amp$(Table,  pt));  Lamp(pt);  LampC(pt);  (LampC(pt)  / 
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END  IF 


Lamp(pt))  *  100;  0 


IF  LanipC(pt)  >  0  THEN 

WRITE  #3,  Limits,  Ampb,  VAL(Amp$(Tabie,  pt)),  Lamp(pt),  LampC(pt),  (LampC(pt)  / 
Lamp(pt))  100,  rt(pt)  /  LampC(pt) 

ELSE  WRITE  #3,  LimitS,  Ampb,  VAL(Amp$(Table,  pt)),  Lamp(pt),  LampC(pt), 
(LampC(pt)  /  Lamp(pt))  *  100,  0 

END  IF 
END  IF 
NEXT  pt 

END  IF 
END  IF 
skiplimits; 

LPRINT 

LPRINT 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR${14); 

LPRINT  "Label  Codes:" 

LPRINT  CHR$(27);  CHR$(72):  CHR$(27);  CHR$(87); 

LPRINT 

LPRINT  "  VI  -  Fixed  Interval  Freq  -  Frequency  (Hz)" 

LPRINT  "  Amp  -  Amplitude  (Volts)  RT  -  Reaction  Tinte  (sec)" 

LPRINT 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR$(14); 

LPRINT  "Symbol  Codes;  (SC)" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 

LPRINT 

LPRINT  "  TO  =  Timeout  MC  *  Missed  Contrast  MVI  =  Missed  scheduled  VI" 
LPRINT  "  C  =  Catch  Trial  (No  response)  CR  =  Catch  Trial  (Response)" 

LPRINT  "  EPC  =  Experimenter  Presented  Contrast" 

LPRINT 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27);  CHR$(14); 

LPRINT  "Procedure  Codes:" 

LPRINT  CHR$(27);  CHR$(72);  CHR$(27);  CHR$(87); 

LPRINl' 

LPRINT "  T  =  Tracking  L  =  Limits  C  =  Contrast  *  =  Other" 

LPRINT  CHR$(12) 

IF  previous  =  0  THEN 
CLOSE  #2 

OPEN  files  FOR  APPEND  AS  #2 

WRITE  #2,  trials,  count,  Fed,  ContrastOFF,  RLeverOFF,  RlcverON 
WRITE  #2,  LleverOff,  LlevcrON,  Cat,  CatchTrials,  Changed 
WRITE  #2,  Timeout 
END  IF 

CLOSE  #2 
CLOSE  #3 
KILL  files 

NAME  "XXXXX.DAT"  AS  fileS 


A-43 


KEY  OFF 


IF  yl$  =  "CONSTANT  STIMULI"  THEN 
FOR  loadamp  =  1  TO  18  ’  Re-Load  Amplitudes 

READ  Anip$(Table,  loadamp) 

NEXT  loadamp 
END  IF 
CLS 
END 


GetContrast: 

FOR  match  =  1  TO  contrasts 

IF  Ampc  =  Voltage(match)  THEN 
Ampb  =  Sensitivity(match) 

END  IF 
NEXT  match 
RETURN 


errcheck: 

SOUND  470,  .4 


errcheck2: 

SELECT  CASE  ERR 
CASE  6 

FOR  X  =  1  TO  2 
SOUNDon  =  SOUNDon  +  1 
IF  SOUNDon  >  =  5  THEN 
LPRINT  ERR 
END 
END  IF 

FOR  S  =  1  TO  2 
SOUND  650,  2 
NEXT  S 

FOR  si  =  1  TO  2 
SOUND  1400,  2 
NEXT  si 
NEXTx 

CALL  zefoCTM51(BSA%)  ’  Zero  Counters 

CALL  readCTM51(cl(),  BSA%) 

RESUME 

CASE  24,  25 
CLS 

COLOR  7,  0 
LOCATE  23,  20 

PRINT  "Turn  Printer  On  -  Press  any  key . " 

pauses  =  INPUT$(1) 

CLS 

COLOR  7,  0 
RESUME 

CASE  27 
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CLS 

LOCATE  23,  20 
COLOR  0,  7 

PRINT  "Printer  is  out  of  paper  -  Press  any  key ..  " 
pauses  =  INPUT$(1) 

CLS 

COLOR  7,  0 
RESUME 

CASE  51,  57 
CLS 

LOCATE  10,  28 
COLOR  0,  7 

PRINT  "Internal  Error  -  Program  aborted" 

LOCATE  12,  28:  PRINT  "Press  any  key . " 

COLOR  7,  0 
pauses  =  INPUT$(1) 

CLS 

GOTO  EndPhase2 
RESUME 

CASE  53 
CLS 

LOCATE  10,  20 

PRINT  "File  Not  Found  -  Press  Any  Key  To  Continue" 

SLEEP 

IF  previous  =  1  THEN  GOTO  maimnenu 
RESUME  NEXT 

CASE  75 
CLS 

LOCATE  10,  20 

PRINT  "Path/File  Access  Error  -  Press  Any  Key  To  Continue" 
pauses  =’  INPUTS(l) 

RESUME  mainmenu 

CASE  76 
CLS 

LOCATE  10,  20 

PRINT  "Path  Not  Found  -  Press  Any  Key  To  Continue" 
pauses  =  INPUT$(1) 

RESUME  mainmenu 

CASE  11 
RESUME  NEXT 

CASE  ELSE 
LPRINT 

LPRINT  "Error  number ERR;  "  occurred" 

LPRINT 

RESUME  NEXT 
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END  SELECT 


PrintHeader: 

LPRINT 

LPRINT  CHR$(27);  CHR$(71);  CHR$(27):  CHR$(14); 
LPRINT  TAB(30);  UCASE$(stage$) 

LPRINT  CHR$(27);  CHR$(87); 

LPRINT 

LPRINT  "File  - file$ 

LPRINT  DATES 
LPRINT  TIMES 
LPRINT 

LPRINT  CHRS(27);  CHRS(72); 

RETURN 

quit: 

LPRINT  CHRS(27);  “P"; 

LPRINT  CHRS(24); 

LPRINT  CHRS(27); 

LPRINT  CHRS(27); 

CLS  :  CLOSE  ;  END 


Available  VIS: 

DATA  0,  4,  6,  8,  10,  12,  16,  20,  22,  23,  24,  26,  30,  36,  55,  144 
FrequencyTables: 


DATA  "580","1230","2460","4485","7520" 


AmplitudeTables: 

DATA  "1.6","1.7'VT.9","2","2.1","2.3","2.4",“2.5","2.6" 
DATA  "2.7","2.8","2.9",''3","3.1","3.2","3.3","3.4","3.5" 

DATA  "1.0",'T.2","1.4","C","1.8","2.0","2.1","2.2","2.3" 
DATA  "2.4","C","2.5","2.6","C","2.7","2.8","C","2.8" 


’  Voltage  Divider  must  be  used  for  following  values.... 

DATA  ".075",".085","C",".125",".195",".305","C",".315",".325",''.445" 
DATA  "C",‘'.555",".575",".775","C",".915","1.075", "1.185", "C","1.385" 
DATA  "1.675","1.915","C","2.225","2.505","2.935","C", "3.345", "3.895" 
DATA  "4.505","C","5.205","5.965","7.225","C","8.125","9.535","1 1 .465" 
DATA  "C","13.595","16.535","19.975" 


Vltables: 

’  VI  Tables  for  0,  4,  6,  8,  10,  12,  16,  20,  22,  23,  24,  26,  30,  36 


DATA  0,0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0,0 
DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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DATA  0,0, 0,0, 0,0, 1, 1 ,1,1, 1,2,2,2,2,2 
DATA  3,3,3,4,4,5,5,6,6,7,8,9,12,17 

DATA  3,4,4,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,7,7,8,9,9 
DATA  10,11,11,12,0 

DATA3,3,3,4,4,4,4,5,5,5,6,6,6,7,8 

DATA  8,9,9,10,10,11,11,11,12,12,12,12,13,13,14 


DATA  3,3,3,4,4,4,5,5,5,6,6,6,7,7, 10 

DATA  10,13,13,14,14,14,15,15,15,16,16,16,17,17,17 

DATA  3,3,4,4,5,5,6,6,7,7,9,9,12, 12, 12 

DATA  12,12,12,15,15,17,17,18,18,19,19,20,20,21,21 

DATA  3,3,4,4,5,5,7,7,9,9, 1 1, 1 1 , 1 2, 12, 1 6 
DATA  16,20,20,21,21,23,23,25,25,27,27,28,28,29,29 

DATA  3,3,5,5,7,7,9,9,10,10,12,12,14,16,20 
DATA  20,24,26,28,28,30,30,31,31,33,33,35,35,37,37 


DATA  3,4,4,5,5,7,8,8,9,10,10,11,12,16,22 
DATA  22,28,32,33,34,34,35,36,36,37,39,39,40,40,41 

DATA  3,4,4,5,6,6,7,8,9,9, 10, 1 1, 15, 1 8,23 
DATA  23,28,31,35,36,37,37,38,39,40,40,41,42,42,43 


DATA  3,3,4,5,7,8,10,10,12,12,14,16,18,22,24 
DATA  24,26,30,32,34,36,36,38,38,40,41,43,44,45,45 

DATA  3,5,5,7,7,9, 10, 10, 12,14, 16, 18,22,24,26 
DATA  26,28,30,34,36,38,40,42,42,43,45,45,47,47,49 

DATA  3,4,5,7,9,9,11,12,14,16,18,22,26,28,30 
DATA  30,32,36,40,42,44,46,48,49,51,51,53,55,56,57 


DATA  3,5,8,10,12,14,16,18,22,24,26,30,32,34,36 
DATA  36,36,38,42,44,46,50,54,56,58,60,62,64,67,69 

DATA  4,6,8,1 1,13,15,18,20,23,26,29,32,36,39,43,45,48,52 
DATA  57,63,69,76,84,93,104,1 18,137,165,180,242 

DATA  2,7, 12, 1 7,23,29,35,41,47,54,62,69,77,86,95 

DATA  104, 1 15, 126, 138, 151, 165,181, 199,220,244,273,309,358,434,633 

DATA  19.975,16.535,13.575,11.465,9.535,8.125,7.225,5.965,5.205 
DATA  4.505,3.895,3.345,2.935,2.505,2.225, 1 .915, 1 .675, 1 .385,1 , 1 85 
DATA  1.075,.915,.775,.575,.555,.445,.325,.315,.305,.195,.125,.085,.075 
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DATA  3.933, 4.516, 5.185, 5.953, 6.835, 7.848, 9.011, 10.346, 11.878, 13.638 
DATA  15.659,17.979,20.642,23.700,27.212,31.243,35.872,41.187,47.228 
DATA  54.294,62.338,71.574,82.178,94.353,108.332,124.381,142.809 
DATA  163.967,188.259,216.15,248.173,284.941 

SUB  loadvi 
LOCATE  10,  27 
PRINT  "Loading  VI  Tables" 

FOR  var  =  0  TO  144  ’  Load  VI  Schedules 

FOR  X  =  1  TO  30 
READ  VI(var,  x) 

NEXTx 

IF  var  =  0  THEN  var  =  3:  GOTO  rnv 
IF  var  =  4  THEN  var  =  5:  GOTO  rnv 
IF  var  =  6  THEN  var  =  7:  GOTO  rnv 
IF  var  =  8  THEN  var  =  9:  GOTO  rnv 
IF  var  =  10  THEN  var  =  11:  GOTO  rnv 

IF  var  =  12  THEN  var  =  15:  GOTO  rnv 

IF  var  =  16  THEN  var  =  19:  GOTO  rnv 

IF  var  =  20  THEN  var  =  21:  GOTO  rnv 

IF  var  ==  22  THEN  GOTO  rnv 
IF  var  =  23  THEN  GOTO  rnv 
IF  var  =  24  THEN  var  =  25:  GOTO  rnv 

IF  var  =  26  THEN  var  =  29:  GOTO  rnv 

IF  var  =  30  THEN  var  =  35:  GOTO  rnv 

IF  var  =  36  THEN  var  =  54:  GOTO  rnv 

IF  var  =  55  THEN  var  =  143:  GOTO  rnv 

rnv: 

NEXT  var 
CLS 

END  SUB 
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